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LA 

LIBRERIA 

DI 

LIST 



A. Alcock 

Il BASIC illustrato 

Masson 



Dizionario 
del BASIC 



D.A. Lien 

Dizionario di BASIC 
Enciclopedia del linguaggio 
BASIC E.P.S.I. 


Presentiamo questo mese 
due libri che i nostri lettori, 
soprattutto quelli in 
possesso di macchine di 
marche con non grande 
diffusione, dovrebbero 
trovare abbastanza utili. 

Il primo è la seconda 
edizione aggiornata di un 
dizionario del BASIC 
molto interessante. 
Contiene una rassegna 
delle diverse versioni di 
tutte le istruzioni di 
moltissime 
implementazioni del 
linguaggio BASIC. 

Come si sa, finora ogni 
casa produttrice di 
computer ha proposto il 
proprio dialetto BASIC, 
creando la più grande 
confusione linguistica dai 
tempi della Torre di 
Babele. Questo manuale 
sarà uno strumento 
potente nelle mani di chi 
ha il problema di 
convertire software scritto 
in BASIC da una 
macchina ad un’altra, 
suggerendo soluzioni di 
modifica per moltissimi 
casi comuni. 

La struttura delle 
spiegazioni dei «vocaboli» 
BASIC è di grande aiuto 
sia nella comprensione 
delle istruzioni di 
partenza, sia nella loro 
traduzione nel BASIC 
voluto. 

Conclude il dizionario 
un’appendice speciale sui 
BASIC Acorn, Atari, 
Tektronik e TRS80, e sui 
sistemi operativi DOS e 
Disk Basic. 

La traduzione a volte 
zoppica, soprattutto nelle 


sezioni speciali, ma tutto 
sommato è buona. 

Il secondo è a mio avviso 
uno tra i migliori manuali 
introduttivi al BASIC. 
Cerca, tra l’altro, di 
descrivere le 
caratteristiche del 
linguaggio oggi più diffuso 
in modo completamente 
indipendente dal dialetto 
BASIC di qualsiasi marca. 
Molto graduale, presenta 
le varie istruzioni in modo 
del tutto modulare e con 
molti esempi, badando più 
alle idee portanti del 
linguaggio che non alle 
applicazioni effettive. 

Molto curato è un 
concetto solitamente assai 
trascurato da chi 
programma in BASIC 
(come ben sanno i nostri 
lettori), quello di portabilità 
del software: questa è 
una qualità dei programmi 
ben scritti che li rende 
usabili su macchine che 
usano interpreti BASIC 
differenti. Un programma 
portabile è un programma 
che, scritto col BASIC di 
una certa macchina, è 
eseguibile senza 
modifiche anche su 
un’altra di marca diversa. 
Molto buona la 
traduzione, con qualche 
sbavatura qua e là 
(l’espressione «process 
control» vuol dire controllo 
di processi, e non 
processo di controllo!). 
Interessante la veste 
grafica, che rende il 
manuale assai leggibile e 
maneggevole. 

Un buon inizio per chi 
comincia ad imparare il 
BASIC! 
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Se le previsioni sono state rispettate, lo scorso 
Natale, in Italia sono stati venduti circa 100 mila home 
computers. È una delle punte massime raggiunta in 
un breve periodo di tempo, in questo particolare 
settore deH’informatica, un «boom» che non ha 
precedenti nel nostro paese. 

A entrare in possesso di un home computer sono stati 
soprattutto i ragazzi tra i 10 e i 18 anni, i cosiddetti 
«computer-kids» che dovrebbero essere, adesso in 
Italia, circa 300 mila. 

La domanda allora è: il nostro paese è davvero così 
informatizzato come sembra? Abbiamo davvero intere 
legioni di giovani e adulti che studiano, lavorano, 
programmano, comunicano in computerese? Pare 
proprio di no! 

Se un giapponese o un americano, arrivati per la 
prima volta nel nostro paese, si fermassero anche per 
pochi minuti in una edicola o in una libreria di casa 
nostra penserebbero agli italiani come a persone che 
con i computers la fanno da padroni. Edicole e librerie 
rigurgitano di riviste informatiche d’ogni tipo, patinate, 
colorate, con o senza cassette, manuali, programmi, 
ecc. 

Il nostro paese, in sostanza, sembra essere alla pari 
con gli Stati Uniti dove nel campo dell'Informatica di 
consumo esiste un vantaggio di un paio d’anni 
rispetto a noi, ma le cose, purtroppo, nonostante le 
apparenze non stanno così. 

Stime attendibili, elaborate a livello mondiale, dicono 
che circa il 40% di tutto il software venduto per i 
computers domestici è riservato ai giochi. 

Negli USA un’altra ricerca molto seria ha accertato 
che la metà circa dei compratori di piccoli computers, 
sei mesi dopo l’acquisto impiega la sua macchina 
solo per giocare e non per imparare, come era nelle 
intenzioni, un linguaggio informatico che consentisse 
loro di affrontare il futuro tecnologico. 

E in Italia? Se il problema investe un paese avanzato 
come gli Stati Uniti — dove i ragazzini delle 
elementari imparano alfabeto e Basic quasi 
contemporaneamente — a maggior ragione deve 
investire il nostro paese dove gli entusiasmi, 
soprattutto da parte dei meno giovani, si stanno 
raffreddando con le docce fredde della mancata 
applicazione, della poca costanza e del blocco 
psicologico davanti alle prime difficoltà tecniche e 
d’apprendimento 

I computers, marchingegni costruiti dall’uomo per 
aiutare l’uomo a lavorare, soprattutto nei compiti più 
banali, stressanti e ripetitivi diventano dunque solo 
delle macchine per giocare. 


L’antico disprezzo dell’umanista verso il tecnologo 
sembra trovare nuovo respiro mentre è a tutti ormai 
chiaro che pensare a due culture diverse, una 
tecnologica e una umanistica, oggi, è un concetto 
perdente. La cultura moderna, è utile sottolinearlo, è 
una sola e comprende tutti i campi del sapere tra loro 
interdipendenti. 

Un altro problema serio e quello dell insegnamento. 
Una recente inchiesta fatta dal Consiglio Nazionale 
delle Ricerche su un campione di 1500 studenti delle 
scuole genovesi afferma che circa il 12% dei ragazzi 
intervistati possiede un computer e che il restante 
82% ha espresso il desiderio di imparare 
«seriamente» un linguaggio informatico. 

Anche il Censis, in uno dei suoi rapporti sul nostro 
paese afferma che la crescita della cultura informatica 
nelle scuole è allargata a fatti del tutto spontanei e 
sporadici, difficili da censire. Questa crescita è legata 
soprattutto ad iniziative prese dai produttori di 
computers che vedono, ovviamente nella scuola un 
potenziale e promettente serbatoio nel quale riversare 
i loro prodotti. E non potrebbe essere altrimenti. 

In altri paesi è la scuola che porta all’informatica. In 
Giappone se uno studente non ha dimestichezza con 
il computer non entra neppure all’Università. In 
Francia, entro la fine dell’85, i computers nelle scuole 
saranno 100.000. In Germania il 50% delle scuole è 
già dotato di computers mentre in Gran Bretagna 
almeno 31.000 istituti scolastici hanno un elaboratore. 
Gli Stati Uniti, se confrontati con noi, sono ormai sulle 
galassie: negli ultimi tre anni gli studenti che 
frequentano dalle elementari alle superiori hanno 
imparato ad usare il computer in una percentuale che 
va dal 70 al 90%. La richiesta di alfabetizzazione 
informatica, in Italia, esiste come abbiamo già visto. 

Ma esiste solo quella. È la mancanza di strutture 
adeguate che vanifica i desideri di chi vorrebbe 
apprendere. 

Solo sei Università, in tutto il paese hanno corsi di 
scienza dell’informazione (Pisa, Torino, Bari, Milano, 
Udine e Salerno) con gli studenti triplicati in 
pochissimo tempo. Il numero degli iscritti supera già il 
numero dei laureati che troveranno un posto nei 
prossimi anni. Così il nostro paese sta contribuendo 
alla creazione probabile di disoccupati in un campo 
dove, all’estero, i nuovi posti si moltiplicano. 

In ultima analisi quella fantastica ed affascinante 
«ondata» informatica che si è rovesciata sul mondo 
intero — e quindi anche sull’Italia — ha travolto in 
maniera inimmaginabile anche i nostri concittadini; ma 
passata «l’onda» rischiamo di trovarci su una spiaggia 
piena di sugheri e di bottiglie vuote mentre gli altri 
nuotano vigorosamente al largo. 

Forse lo spirito umanista che è ancora in tutti noi 
«non di primo pelo» dà per scontato che i computers 
esistono, che non sono poi una cosa inutile, ma che 
sono di pertinenza di altri. Quindi, se non corriamo 
presto ai ripari, rischiamo di diventare una landa 
disinformatizzata, incapace di reggere il confronto con 
quei paesi che sono intelligentemente all’avanguardia 
in questo campo e che purtroppo potrebbero 
trasformarci in una loro colonia informatica, senza 
riviste patinate e colorate. 

Giuseppe Breveglieri 
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H eIJiti artificiali è 
la tempo ma 
strada non se 
ccorto. Nel buio 
ita cosmica, 
teste, ruotano 
ia di queste 

lune. 

Dall’ottobre del 1957, 
quando venne «sparato» 
nello spazio l'ormai 
leggendario Sputnik 
sovietico sono partiti dalla 
Terra, verso il cosmo, più di 
14 mila marchingegni di 
questo tipo. Ma, a ruotare, 
solidamente, sulle nostre 
teste, sono rimasti solo 
cinquemila satelliti artificiali; 
gli altri, finito il loro lavoro, 
sono andati in pezzi e si 
sono disintegrati ricadendo 
verso la Terra. 

I satelliti hanno già cambiato 
il nostro modo di essere 
anche se non ce ne siamo 
accorti. Vediamo 


avvenimenti, sportivi e non 
effe si svolgono in paesi 
anche molto lontani grazie 
ai satelliti; telefoniamo, 
trasmettiamo, 

comunichiamo dati e parole 
con il loro aiuto, spiamo 
nelle cose e nelle 
comunicazioni degli altri. 
Con i satelliti cerchiamo 
nuove risorse sulla Terra, 
esploriamo i capricci della 
metereologia. È anche un 
affare per migliaia di 
miliardi, un affare che butta 
aU’aria la barriera delle 
normative nazionali ed 
internazionali, che sta 
mandando in pezzi i modi di 
vedere, sentire, 
regolamentare, una larga 
fetta delle attività umane. 
Oltre ai satelliti l'uomo ha 
inviato nello spazio suoi 
simili, che hanno toccato il 
suolo lunare, poi si è spinto 
più avanti con 
l'esplorazione, per mezzo di 


pianeti del sistema solare. 
Dalle missioni spaziali 
l’uomo ha ottenuto grandi 
benefici anche nel 
quotidiano. Dalle 
«intuizioni» tecnologiche 
realizzate per le missioni 
lunari la NASA, l’Ente 
spaziale americano, ha 
calcolato che siano poi 
derivati ben 150 mila tra 
brevetti e invenzioni di 
oggetti o sistemi che l’uomo 
oggi usa nelle sue attività di 
tutti i giorni. 

Dalle ricerche spaziali il 
maggiore impulso lo hanno 
avuto certamente la 
medicina, i sistemi 
informatici, le comunicazioni 
a grande distanza, la 
miniaturizzazione 
elettronica, il 

telerilevamento, le ricerche 
cosmiche, meteorologiche e 
quelle sulla sopravvivenza 
nello spazio. 
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Dei 5 mila oggetti che orbitano 
ancora sulle nostre teste meno di un 
decimo circa sono in attività. Gli 
americani possiedono circa 200 di 
questi satelliti, i sovietici un centinaio 
e un’altra manciata appartiene ad 
altri paesi. 

Poco più del 30% dei satelliti che 
girano sopra di noi sono impiegati 
per usi civili. I satelliti artificiali, 
infatti, nella stragrande maggioranza 
vengono lanciati dai militari. Sono 
macchine molto sofisticate, che 
servono per spiare le mosse 
deH’avversario, per ascoltare le sue 
comunicazioni. Alcuni di questi 
satelliti sono attivi, altri sono 
momentaneamente «addormentati» 
ma pronti ad entrare in azione con 
un semplice comando da terra. Altri 
ancora sono finiti e restano in orbita 
solo per ingannare l’avversario e i 
satelliti killer del nemico. 

I satelliti spia sono marchingegni 
molto avanzati. Il Big Bird 
americano, un cilindro che pesa 13 
tonnellate, alto 15 metri, del 
diametro di tre e che viene 
periodicamente tenuto in assetto di 
volo a bassa quota orbitale 
dall’accensione di un propulsore a 
razzo, è in grado, da una orbita di 

180-300 chilometri, di leggere i titoli 
di un giornale o di «vedere» con 
particolari artifici fotografici, la targa 
di un automezzo sovietico. 

Anche i russi hanno satelliti spia 
molto raffinati. 

II COSMOS 1603 che passa ogni 
giorno nel cielo americano dal Texas 
alla baia di Hudson, lungo un’orbita 
inclinata di 71 gradi sull’equatore, a 
838 chilometri di quota, e che pesa 
più di ventimila chilogrammi, è in 
grado di captare molte delle 
comunicazioni dei militari americani 
che si intrecciano nello spazio aereo 
statunitense. Un satellite spia come 

il Cosmos 1603, forse il più avanzato 
tra quelli sovietici, può essere 
«ingannato» dagli esperti di 
telecomunicazioni del Norad, il 
Comando della Difesa aerospaziale 
americano, che si trovano nelle 
profondità dei monti Cheyenne, nel 
Colorado, e che tengono sotto 
controllo tutti gli oggetti in volo nello 
spazio. 

Ma prima di essere ingannato il 
satellite spia riesce a carpire un 
certo numero di informazioni. Poi 
verrà un satellite ancor più 
complicato e il gioco di mosse e 
contromosse elettroniche continuerà. 


Questi satelliti assicurano alle grandi 
potenze informazioni precise e 
aggiornate, a volte sorprendenti, non 
solo sulle reciproche attività militari 
ma anche su quelle dei paesi alleati 
o che fanno parte dell’area 
d’influenza dell’avversario. È noto 
che l’Unione Sovietica ha aumentato 
i lanci dei Cosmos — che spedisce 
nello spazio a grappoli — quando è 
cominciato il conflitto Iran-lrak, e ha 
impiegato Cosmos 1402 per 
controllare i movimenti dei britannici 
e degli argentini durante il conflitto 
delle Falkland. 

In questo modo USA e URSS 
dispongono di un'arma psicologica e 
di pressione che possono usare 
indifferentemente su avversari e 
alleati. 


Nei prossimi anni questo monopolio 
dovrebbe finire perché altri paesi, 
nell’ambito dei loro piani spaziali, 
intendono spedire nel cosmo, in un 
futuro molto prossimo, satelliti per il 
rilevamento le cui prestazioni hanno 
certamente anche connotazioni 
militari. 

È il caso della Francia, che tra pochi 
mesi dovrebbe inviare nello spazio, 


con il vettore Ariane, un satellite di 
questo tipo chiamato SPOT, mentre 
l’Agenzia Spaziale Europea disporrà 
dell’ERS-l e i giapponesi del MOS-I. 
Tutti questi satelliti avranno a bordo 
non più sensori ottici ma sensori a 
microonde che sono ancor più 
precisi di quelli precedenti. 

I satelliti artificiali ruotano sulle 
nostre teste a distanze diverse. 

Le orbite possono essere basse (da 
200 a 1000 chilometri) per i satelliti 
spia, per quelli astronomici e per il 
telerilevamento e per lo studio 
dell’atmosfera e della ionosfera. 
Sull’orbita media (da 10.000 a 
20.000 chilometri) invece, vengono 
posti i satelliti per le 
telecomunicazioni, quelli 
meteorologici, quelli per la 


navigazione e quelli geodetici per 
prevenire i terremoti. 

In orbita geostazionaria (a 36.000 
chilolitri e latitudine zero) infine, 
vengono posti i satelliti per le 
telecomunicazioni. 

A tutte le quote, inoltre, ruotano 
ancora satelliti di tutte le specie da 
tempo inattivi. 

I satelliti artificiali sono, grosso 
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modo, di quattro tipi: meteorologici, 
per il telerilevamento, per 
esperimenti scientifici e per le 
telecomunicazioni. Gran parte di 
questi satelliti è posta in orbita 
geostazionaria o geosincrona. Ciò 
vuol dire che queste lune artificiali 
hanno la stessa velocità della Terra 
e che, quindi, paiono come un punto 
fermo sull’orizzonte per il principio 
della relatività del moto. 

È facile intuire che soprattutto le 
telecomunicazioni hanno avuto 
grande impulso dall’avvento dei 
satelliti perché il satellite «fisso» in 
orbita geostazionaria, «vede» sia la 
stazione di partenza sia quella di 
arrivo delle comunicazioni e si 
comporta, quindi, come una specie 
di relè. 

Con i satelliti per telecomunicazioni 
oggi è possibile telefonare 
immediatamente in teleselezione in 
quasi tutte le parti del mondo. 

Questo sistema, basato sui dati 
digitali che grandi elaboratori 
codificano e decodificano, consente 
di trasmettere nello spazio, e da un 
continente all’altro, miliardi di dati e 
informazioni ogni giorno. I cavi 
telefonici transoceanici, adesso, 
paiono piccioni viaggiatori se li 
rapportiamo al volume di 
trasmissione e alla velocità che si 
ottiene con i satelliti artificiali. 

Adesso i satelliti artificiali sono 
impiegati soprattutto sulle grandi 
distanze, ma con l’abbattimento dei 
costi e la sofisticazione dei sistemi, 
potranno essere usati anche per le 
telecomunicazioni interne con grandi 
vantaggi economici e pratici. 

Ogni satellite artificiale ha migliaia di 
canali telefonici e qualche canale 
televisivo. Ciò consentirà, tra non 
molto, di ricevere direttamente a 
casa, con un piccolo paraboloide 
grande poco più di una padella, le 
trasmissioni televisive che arrivano 
anche da altri paesi senza passare 
per i centri televisivi nazionali che, 
ancor oggi, rilanciano le immagini in 
arrivo dalle diverse parti del globo. 
Questa facilità di trasmissione 
telefonica e televisiva favorirà in 
modo sbalorditivo lo sviluppo di una 
nuova tecnica di cui sentiamo 
parlare ormai quotidianamente, vale 
a dire la «telematica», l’unione dei 
sistemi di comunicazione telefonica 
con l’informatica, considerata, a 
ragione, il futuro, ormai avviato, delle 
telecomunicazioni. 

A questo futuro è stata dedicata 


molta attenzione e gli sforzi maggiori 
dal punto di vista economico, 
strategico, tecnologico. Già nel 
Natale del 1958 gli Stati Uniti 
spediscono in orbita il satellite 
SCORE con il solo compito di 
diffondere un messaggio d’augurio 
del Presidente Eisenhower. SCORE 
assolve il suo compito e un mese 
dopo precipita. 

Da allora ad oggi i satelliti per 
telecomunicazioni hanno fatto passi 
da gigante: le reti Intelsat, Eutelsat, 
Inmarsat per l’Occidente e 
L’Intersputnik per i paesi socialisti, 
gestiscono ormai decine di satelliti 
per telecomunicazioni 
intercontinentali ed europee. Esiste 
anche una rete Arabsat, costituita 
dalla Lega dei Paesi Arabi, che dalla 


seconda metà degli anni ’80, 
disporrà di tre satelliti, costruiti dai 
francesi, per le comunicazioni 
telefoniche e televisive. 

Secondo gli esperti i satelliti per 
telecomunicazioni sono già arrivati al 
massimo della loro disponibilità 
(possono avere, ognuno, 35 mila 
canali telefonici oltre a quelli 
televisivi). Per il futuro, quindi, si 


prospettano due soluzioni: grandi 
piattaforme per telecomunicazioni 
che concentrano in orbita tutti i 
sistemi necessari, oppure gruppi di 
satelliti, da spegnere o attivare a 
seconda delle necessità. 

Queste soluzioni risolverebbero 
anche il problema «deH’affollamento 
cosmico» perché i satelliti che 
esauriscono i loro compiti, a questa 
altezza, restano in orbita. Vengono 
solo spinti, qualche centinaio di 
chilometri più in alto, per non 
intralciare il lavoro dei satelliti in 
attività. 

I satelliti meteorologici e per il 
telerilevamento hanno grande 
importanza per le attività quotidiane 
dell’uomo. Satelliti meteorologici 
come il Meteosat (quello usato 


anche in televisione per le previsioni 
del tempo) contribuiscono alla 
sicurezza della navigazione in cielo 
e in mare. 

Anche i satelliti per il telerilevamento 
compiono un lavoro molto 
interessante. Con sistemi molto 
complicati riprendono dall’alto la 
superficie del globo terrestre. I dati 
inviati a terra vengono poi rielaborati 
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dai computers che riproducono 
immagini di zone con una definizione 
di 30 metri di lato. Queste immagini 
che i satelliti inviano alle stazioni di 
terra, consentono il controllo delle 
risorse terrestri, la scoperta di 
risorse nuove (giacimenti di materie 
prime, di petrolio, ecc.) il controllo 
degli inquinamenti, le previsioni di 
cataclismi naturali come i terremoti o 
le eruzioni vulcaniche, il controllo di 
grandi estensioni di terreno coltivato. 
Dalla combinazione di questi due tipi 
di satelliti (telerilevamento e meteo) 


nascono i satelliti oceanografici. Un 
esempio sono i satelliti NIMBUS 
messi a punto dagli americani e 
METEOR costruiti dai sovietici. 
Satelliti di questo tipo danno 
informazioni vitali per la navigazione 
e per la ricerca scientifica sulla 
dinamica degli oceani e sulle loro 
caratteristiche fisiche: venti, correnti, 
temperature, altezza delle onde, 
consistenza dei ghiacci, tempeste. 
Su tutte queste manifestazioni i 
ricercatori possiedono ora una 
quantità di dati e di elementi che, 


senza i satelliti, l'uomo non avrebbe 
avuto e che, cosa molto importante, 
consentono di elaborare modelli e 
previsioni fondamentali anche dal 
punto di vista economico. 

Il primo satellite artificiale della storia 
è proprio un satellite scientifico, lo 
Sputnik-I, che i sovietici lanciano dal 
poligono di Bajkonur-Tjuratam il 4 
ottobre del 1957, su un’orbita alta da 
228 a 947 chilometri e con una 
inclinazione orbitale rispetto 
all'equatore di 65,1 gradi. Dopo 92 
giorni lo Sputnik-I ricade 
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nell’atmosfera e si disintegri. 
L’energia di bordo gli ha permesso, 
per tre settimane, di trasmettere a 
terra informazioni sulla ionosfera, 
sulla densità dell’atmosfera, sulle 
micrometeoriti e sui raggi cosmici. 

Da quel giorno sovietici, americani 
ed europei hanno messo a punto 
grandiosi programmi di ricerca che 
hanno dato, e daranno, ampio 
respiro alla conoscenza del cosmo e 
dei suoi fenomeni. 

Questi programmi interessano lo 
studio del nostro pianeta, dello 
spazio e delle influenze che in 
questo spazio si manifestano tra noi 
e il Sole, dell’intero sistema solare, 
dei grandi fenomeni astronomici e 
dell’Universo in genere. 

Questi programmi di ricerca e di 
studio sono molti e complessi. Ne 
ricordiamo alcuni. Il Solar Maximum 
Mission per lo studio del Sole. 
Costruito in maniera modulare per 
poter essere eventualmente 
recuperato da una navetta spaziale 
l’SMM, pesante 2315 chilogrammi è 
il primo satellite riparato in orbita. 
Dopo un anno di lavoro nello spazio 
il Solar Maximum Mission va in 
«tilt». Vanno in avaria uno strumento 
che studia la corona del Sole e il 
sistema di assetto del satellite. 
L'SMM, allora, viene desattivato da 
terra e, nell’Aprile dello scorso anno, 
con una spettacolare missione della 
navetta spaziale Challenger, riparato 
nel cosmo da un astronauta che 
diventa così il primo «operaio 
cosmico». Tornato in funzione dopo 
tre anni di inattività il Solar Maximum 
Mission può essere adibito anche a 
missioni diverse. Essendo stato 
costruito in modo modulare basta 
sostituire il carico degli strumenti 
scientifici di bordo per modificare gli 
obiettivi della sua missione. 

Altro impegno scientifico di grande 
importanza è quello deil’IRAS, un 
satellite realizzato da Stati Uniti, 

Gran Bretagna e Olanda e lanciato 
nel Gennaio dell’83 per registrare le 
sorgenti di radiazione infrarosse. 
IRAS, nei dieci mesi di missione fa 
scoperte sensazionali: un possibile 
sistema solare in formazione attorno 
a Vega, una stella della 
costellazione della Lira, distante 26 
anni luce da noi, la terza più 
luminosa del nostro cielo; cinque 
nuove comete e un anello di polvere 
che circonda il nostro sistema 
solare. 

Ma la missione che probabilmente 
rivoluzionerà l’astronomia è il lancio 


del telescopio spaziale in 
programma l’anno prossimo. È un 
progetto americano con 
collaborazione europea. 

Lo «space telescope» è lungo 13 
metri, con un diametro di 4,3 metri e 
un peso di sette tonnellate. Portato 
dallo Shuttle della NASA su un’orbita 
alta 500 chilometri, resterà attivo per 
15 anni. Periodicamente «operai 
cosmici» cureranno la manutenzione 
in questi 15 anni, poi il telescopio 
tornerà a terra per una revisione 
generale in vista di un possibile 
reimpiego. Lo «space telescope» 
amplierà di dieci volte, da quella 
altezza, la vastità dell’Universo 
osservabile. Ciò vuol dire che la sua 
capacità di «leggere» i vari dettagli 
del cosmo sarà dieci volte più 
grande di quella dei telescopi a terra 
e doppia rispetto a quella del più 
grande telescopio terrestre che si 
trova a Zelentchuouk, in Unione 
Sovietica. 

Conquistata la Luna gli uomini ora 
cercano di spingersi oltre, nel 
cosmo, con le sonde automatiche. I 
sovietici sono arrivati in questo modo 
con le sonde interplanetarie MARS e 
VENERA su Marte e Venere. Gli 
americani con la sonda MARINER X 
fanno arrivare il loro veicolo spaziale 
su Venere e lo fanno proseguire 
verso Mercurio. Ma il programma più 
complesso per esplorare Venere è il 
Pioneer — Venus messo a punto dai 
ricercatori statunitensi che mettono a 
punto altre sonde Mariner da 
lanciare verso Marte per poi farvi 
atterrare due veicoli automatici 
VIKING neH’Aprile e nel Settembre di 
dodici anni fa. 

Verso Giove gli americani hanno 
inviato Pioneer 10 e 11. La missione 
è famosa perché a bordo le due 
sonde hanno una targa progettata e 
realizzata da una squadra di 
scienziati guidata dal celebre 
astrotisico Cari Sagan. 

Sulla targa sono stati impressi 
disegni che rappresentano il genere 
umano e i simboli della nostra 
conoscenza scientifica. La targa 
servirebbe per far sapere ad 
eventuali abitanti di altri sistemi 
planetari che la raccogiiessero, della 
nostra esistenza e il punto dove si 
trova la Terra nella galassia. Se non 
si guasterà Piooner 10 dovrebbe 
inviarci informazioni del suo lungo 
viaggio fino a poco prima il 2000, poi 
dovrebbe proseguire la sua 
avventura nell’infinito per migliaia di 
anni, se nulla accadrà. 


Dopo le sonde Voyager per Giove e 
Saturno, lanciate dagli americani, 
verso il maggiore dei pianeti sta per 
partire (1986) il veicolo automatico 
Galileo. Nella realizzazione di 
Galileo gli americani sono stati 
aiutati dai tedeschi occidentali. 

Ma le missioni più spettacolari di 
sonde automatiche sono in 
programma quest’anno e il prossimo. 
In questi 24 mesi, infatti, cinque 
sonde spaziali andranno incontro, 
per studiarle a due conosciute 
comete: la Giacobini-Zinner e l’ancor 
più famosa cometa di Halley, quella, 
per interderci che, nella tradizione, 
ha guidato i Magi verso Betlemme. 

Le sonde sono sovietiche, 
giapponese, americana ed europea, 
ai sovietici impiegano due sonde 
VEGA, i giapponesi la PLANET A, 
gli americani l’ISEE in orbita dal 
1978 e ribattezzata per questa 
nuova missione ICE, e gli europei la 
sonda GIOTTO. 

Halley, uno studioso della materia, 
quando ne! 1687 Newton rese nota 
la legge di gravitazione universale, si 
ricordò di una cometa molto 
splendente che era stata osservata 
quanche anno pirma. Andò a 
cercare le sue tracce nella storia dei 
secoli precedenti risalendo al quinto 
secolo prima di Cristo. Halley calcolò 
anche l’orbita di questa cometa che, 
secondo lui, si ripresentava ogni 76 
anni circa. La tesi sulla periodicità 
delle comete era corretta. Halley non 
vide mai la cometa, che prese poi il 
suo nome, e della quale aveva 
pronosticato il ritorno, perché morì 
16 anni prima. 

Le comete sono composte di tre 
parti: il nucleo (o testa) la chioma e 
la coda. Solitamente la testa delle 
comete ha un diametro inferiore ai 
100 chilometri, ma intorno alla testa 
si forma una chioma il cui diametro 
può superare il milione di chilometri. 
La coda delle comete più 
spettacolari può essere di oltre 300 
milioni di chilometri, il doppio della 
distanza che separa la Terra dal 
Sole. 

Le comete secondo una nota teoria 
sarebbero enormi palle di «ghiaccio 
sporco» che nell’avvicinarsi al Sole 
si disgregano formando insieme a 
gas le code e la chioma luminosa 
che sta tutt’intomo al nucleo. 

Le cinque sonde andranno molto 
vicine al nucleo e alla coda della 
cometa di Halley per portare a 
termine le loro indagini che nessuna 
osservazione da terra potrà mai 
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imitare. La più importante delle 
cinque missioni è certamente quella 
della sonda europea GIOTTO. La 
sonda si chiama così perché Giotto 
fu il primo a dipingerla in modo 
realistico, senza punte cioè, nella 
scena dell’Epifania della Cappella 
degli Scrovegni a Padova. GIOTTO 
passerà a meno di 500 chilometri da 
Halley e invierà a terra elementi 
certamente molto utili per una 
maggiore comprensione dei 
fenomeni celesti. La sonda europea 
verrà portata direttamente in orbita 
da un razzo vettore Ariane il 10 
Luglio di quest’anno. GIOTTO 
incontrerà la cometa il 13 Marzo 
dell’86 e con tutta probabilità qui 
terminerà la sua vita perché è molto 
difficile che riesca ad attraversare 
indenne quella rigidissima ghiacciaia 
che è la chioma di Halley. 

Di qui al 2000 altre sonde 
automatiche partiranno dalla Terra 
alla volta del cosmo per esplorare 
ulteriormente lo spazio intorno a noi. 
Le mete ora sono gli asteroidi che 
ruotano intorno al Sole tra Venere e 
Giove. 

La Luna, dopo essere stata 
conquistata, non è stata più toccata 
da piede umano. Ma nel futuro la 
Luna tornerà ad essere una meta 
dell’uomo. 

Ci proveranno i giapponesi, poi gli 
americani che, prima della fine del 
2000 vogliono impiantare sul suolo 
lunare una sorta di stabilimento 
industriale per estrarre minerali e 
produrre idrogeno e ossigeno da 
usare, allo stato liquido, come 
combustibile per i razzi vettori. Ma 
per approntare questa «fabbrica» è 
opportuno avere una base 
intermedia nello spazio che consenta 
di evitare, per ogni missione, la sfida 
portata all’uomo dalla gravità. 
Occorre, quindi, una stazione 
prbitante. 

È, questa della stazione orbitante, 
una vecchia idea che ha già fatto la 
fortuna di romanzieri e produttori 
cinematografici, ma è anche, alla 
luce della attuale conoscenza, una 
idea realizzabile in molti modi. 

Un esempio è il progetto Exat 
deN’Aeritalia, che prevede la 
costruzione di una base spaziale con 
l’unione di vari moduli dello 
Spacelab, il laboratorio spaziale 
costruito dalla stessa Aeritalia per lo 
Shuttle della NASA. 

I moduli dello Spacelab, simili 
all’esterno, avrebbero funzioni 


diverse all’interno (alloggi, laboratori, 
depositi, ecc.) e potrebbero 
consentire lunghi soggiorni nello 
spazio. 

I sovietici, che hanno il record di 
permanenza umana nel cosmo, 
hanno realizzato la loro stazione 
spaziale con le capsule Saljut, 
mentre gli americani hanno allo 
studio molti progetti, alcuni in 
collaborazione con gli europei, il 
Canadà e il Giappone. 


navetta restano fedeli ai loro 
giganteschi e potentissimi razzi 
vettori in grado di portare nel cosmo 
una intera stazione spaziale. 

Gli europei, che sono più indietro 
rispetto alle due grandi potenze — e 
non potrebbe essere altrimenti, 
poiché la ricerca costa milioni di 
dollari — hanno un loro razzo 
vettore, l’Ariane, in grado di portare 
in orbita geostazionaria, satelliti di 
medie dimensioni. 



Nel Gennaio dell’84 il presidente 
americano Reagan ha lanciato 
questo grande obiettivo che il suo 
paese dovrebbe realizzare entro la 
fine degli anni ’80. Nelle linee 
generali il progetto prevede più 
stazioni orbitanti, che si incrociano 
periodicamente, con una stazione 
principale che fa da perno al 
sistema. Dovrebbe essere pronta per 
il 1992, nel cinquecentesimo della 
scoperta dell’America. 

Anche i sovietici per quel periodo 
dovrebbero avere la loro stazione 
spaziale già in orbita. 

Ancora una annotazione sui vettori 
che poetano nello spazio satelliti, 
sonde e stazioni spaziali. 

Gli americani, dopo avere 
sperimentato potentissimi razzi, 
paiono indirizzati, almeno per ora, 
sullo Shuttle, la navetta spaziale 
riutilizzabile, che, una volta in orbita 
«lancia» i suoi marchingegni cosmici 
verso orbite più alte. I sovietici, che 
stanno sperimentando una piccola 


L’importante è che questa corsa alla 
conquista dello spazio persegua fini 
pacifici nell’interesse dell’umanità 
intera e non diventi una sorta di 
«approdo» per pochi uomini in grado 
di condizionare, dallo spazio, la 
sopravvivenza dei molti che ancora 
abitano il pianeta o, ancor peggio, 
un rifugio per quelli che sono sfuggiti 
ad una eventuale catastrofe 
nucleare. 

Giuseppe Breveglieri 
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ZX - 81 

Ho acquistato da poco uno ZX-81 
e vi sarei grato se poteste darmi 
alcune delucidazioni in merito al 
mio «home». 

1) programmi scritti per la 
versione 1K o 16K sono 
compatibili con l’espazione da 
32K? 

2) esiste una interfaccia colore? 

3) è possibile programmarlo in 
altri linguaggi oltre al BASIC? 

4) ho sentito parlare di 
«Word-Processing» ma non ho 
capito di cosa si tratti 
esattamente. 

Ringraziandovi per l’attenzione 
prestatami. 

Pierpaolo Redondo 
Roma 


Ecco, Pierpaolo, le risposte ai tuoi 
quesiti: 

1) compatibilità 1K/16K/32K: le 
espansioni di memoria per lo ZX-81 
non cambiano la mappa della stessa 

— come ad esempio avviene con il 
VIC 20 — e quindi non sussiste 
problema di «compatibilità»; 

2) interfaccia colore: purtroppo non 
esiste!!! 

3) linguaggi: oltre al BASIC, che a 
noi risulti, è possibile programmare 
lo ZX-81 solo in Linguaggio 
Macchina; 

4) Word-Processor: si tratta di un 
pacchetto software che permette, in 
parole molto semplici, di utilizzare il 
computer come una macchina da 
scrivere e come archivio, dando la 
possibilità di «salvare» quanto scritto 

— ad es. lettere, circolari — per poi 
richiamarlo e modificarlo secondo le 
esigenze. Naturalmente è necessaria 
una stampante. 


MONITOR O TV? 

Possiedo uno Spectrum 48K e 
vorrei, per ovvi motivi «familiari», 
acquistare un Monitor a colori. Ho 
sentito parlare di un Monitor 
progettato in modo da «accettare» 
direttamente il segnale dello 
Spectrum. Vorrei sapere se ciò 
significa che con questo Monitor 
non c’è bisogno di apportare 
modifiche a livello Hardware al 
computer, come mi sembra di 
aver capito, oppure se ho male 
interpretato il significato di 
«diretto». 

Mi è stato detto che esistono dei 
televisori che possono essere 
utilizzati sia come TV che come 
Monitor. 

Potreste fornirmi alcuni 
chiarimenti in merito e suggerirmi 
cosa acquistare? 

Dario Oddi 
Cesena 


Riguardo al Monitor è possibile che il 
collegamento con lo Spectrum sia 
«diretto» solo se la interconnessione 
con il computer avviene tramite il 
connettore frontale utilizzato 
generalmente per le periferiche 
esterne (stampante, joystick, 
microdrive) e non tramite l’uscita TV. 
Un qualsiasi Monitor o TV/Monitor 
con connessione tramite porta TV 
non è utilizzabile. 


SEGA SC-3000 

Siamo possessori di un computer 
SEGA SC-3000; purtroppo 
notiamo la mancanza in 
commercio di manuali e 
recensioni che ci aiutino a 
conoscere meglio le nostre 
macchine. È possibile avere 
tabelle o programmi che ci diano 
una mano a rendere compatibili i 
diversi BASIC tra gli home? 

Amedeo, Angelo 
e Maurizio di Foligno 


...stiamo già affrontando l'argomento - 
nessun problema finché si tratta 
della conversione dei soli comandi 
BASIC, più arduo, invece, quando si 
tratta di particolari locazioni di 
memoria (PEEK e POKE). 


Proprio al fine di un reciproco 
arricchimento, cogliamo l’occasione 
per invitare tutti i nostri lettori a 
segnalarci quelle istruzioni PEEK e 
POKE da loro trovate e che 
ritengono interessanti e pratiche per 
il funzionamento dei programmi sui 
loro computers. 


Linguaggi 

La maggior parte degli 
Home-Computers presenti sul 
mercato è provvista, come 
linguaggio base, del BASIC. A 
molti di questi so che però è 
anche possibile sostituire, 
mediante appositi pacchetti 
software, il BASIC con altri 
linguaggi di programmazione 
come il FORTH e il PASCAL. 

Ho letto che entrambi sono molto 
più veloci del BASIC; mi è però 
stato detto che ogni linguaggio ha 
uno specifico campo di utilizzo, 
nel quale rende al massimo. 
Potreste indicarmi alcuni campi di 
applicazione del FORTH e del 
PASCAL ed eventuali altri 
linguaggi interessanti? 

Sandro Regoli 
Firenze 


Tutti i tipi di linguaggio vengono 
generalmente creati per l’utilizzo in 
campi specifici. Il BASIC — 
Beginner’s All-purpose Symbolic 
Instruction Code — è, come dal 
nome, un linguaggio di facile 
apprendimento e proprio per la sua 
caratteristica di linguaggio 
«generale» è valido per tutti i campi 
ma, naturalmente, non per tutti 
rappresenta l’optimum. 

Il FORTH, creato da C. Moore, 
inizialmente era stato progettato per 
controllare un radiotelescopio e nella 
sua versione base è molto 
«primitivo» e provvisto di un 
vocabolario limitato. La sua forza stà 
nel fatto che permette all’utente di 
creare nuovi termini da poter usare 
come parti del linguaggio vero e 
proprio fornendo inoltre la possibilità 
di usare questi termini per la 
creazione di nuovi. Si tratta dunque 
di un linguaggio estremamente 
«malleabile». Il BASIC invece è, 
sotto questo punto di vista, 
«intoccabile». 

Il PASCAL fu sviluppato da N. Wirth 
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con l’intento di rafforzare tecniche 
disciplinate di programmazione. 

I programmi in PASCAL sono 
generalmente «trasparenti» e quindi 
facili da modificare a seconda delle 
esigenze. 

A tale proposito è interessante 
notare come il SuperBasic del 
Sinclair QL presenti molte delle 
caratteristiche migliori del FORTH e 
del PASCAL. 

L’apprendimento di linguaggi diversi 
dal BASIC senz’altro può aiutare per 
migliorare le proprie capacità di 
programmatore. 


Il compiler 

...se ho ben capito il «compito» di 
un COMPILER è quello di 
convertire il BASIC in Codice 
Macchina. Possiedo un VIC 20 e 
sarei intenzionato ad acquistare 
oltre al COMPILER la cartridge 
Super-Extender. * 

Nel caso che questa sia inserita, il 
COMPILER sarà «operativo»? 

Antonio Trotta 
Bologna 


I COMPILERS progettati per il VIC 
20 sono operativi, cioè intervengono 
sui comandi BASIC, solo sulla 
versione base del computer. Un 
normale compilatore non può 
dunque intervenire su comandi ad 
esso «sconosciuti», forniti al VIC 20 
da cartridges esterne. 

La risposta alla tua domanda, 
Antonio, è dunque no. 


Cascatutto 
(SEGA SC-3000) 

Potete illuminarci riguardo al 
programma «CASCATUTTO» da 
voi pubblicato? 

Daniela Salvetti di Napoli 
Enrico e Paolo Busana 
di Genova 

Involontariamente siamo colpevoli di 
aver reso più difficoltosi i primi 
approcci di Daniela con il suo 
computer. Secondo le istruzioni che 
accompagnavano il programma, i 


tasti da premere erano «A» = 
sinistra e «B» = destra. 

Errore!!! Seguendo infatti le REM 
illustrative introdotte nel listato non è 
difficile trovare a partire dalla linea 
800 le istruzioni riguardanti il 
movimento. In particolare la linea 
860: IF INKEY$ = «A» THEN 
X0=X0-T (ovvero se il tasto «A» è 
premuto allora decrementa X0 di T) 
e la linea 870 IF INKEY$=«S» 
THEN XO=X0+T (ovvero se il tasto 
«S» è premuto allora incrementa X0 
di T) dove X0 è la coordinata del 
PIERINO. 

Quindi durante il gioco uno dei tasti 
da premere per il movimento di 
PIERINO è «S» e non «B» come 
erroneamente indicato. 

Ringraziamo Daniela per la fiducia 
dimostrataci sottoscrivendo 
l’abbonamento ed iscrivendosi al 
LIST-CLUB. 

Emicrania, invece, per Enrico e 
Paolo che hanno controllato e 
ricontrollato più volte la trascrizione 
del programma senza venire a capo 
del problema. 

Proviamo ad aiutarli, pur 
confermando l’esattezza del listato 
pubblicato. 

Se abbiamo ben capito l’oggetto 
«che casca» c’è ma non si vede! 
Probabilmente l’inconveniente è 
causato da una errata 
interpretazione: alla linea 830 
l’istruzione SPRITE si riferisce al 
movimento di caduta degli oggetti le 
cui coordinate sono X e Y, il numero 
che segue indica il carattere grafico 
(PATTERNS #) che deve essere 
rappresentato. In questo particolare 
caso il numero è rappresentato dalla 
variabile B (è stata forse scambiata 
per «8»?) definita alla linea 740. 

«B» è dunque un numero che può 
variare a caso tra 1 e 4; così se 
B=1 avrete lo SPRITE deH’ombrello 
(definito con PATTERNS #1 alla 
linea 650) e di seguito B=2 la torta 
(linea 660), B=3 lo scarpone (linea 
670), B=4 il vaso dei fiori (linea 
680). 

L’ultimo numero necessario per 
identificare l’istruzione SPRITE 
indica il colore dell’oggetto. 

Se come riteniamo avete scambiato 
la lettera B per il numero 8 è logico 
che non vediate apparire alcun 
oggetto, in quanto non c’è carattere 
definito come PATTERNS # 8. 
Attenzione, per io stesso motivo, 
anche alla linea 950. 


Un caro saluto a tutti e tre con la 
speranza di esservi stati d’aiuto ed 
abbastanza esaudienti. 

La redazione 

VIC 20 

Possiedo un VIC 20 inespanso di 
cui sono un programmatore assai 
soddisfatto; vorrei farvi però 
alcune domande. 

È possibile ottenere dei grafici ad 
alta risoluzione? 

Esiste qualche routine a tal 
proposito? 

Come è possibile simulare 
l’istruzione PRINTAT (X, Y)? 

Come trasformare i comandi da 
joystick a tastiera? 

Fabio Balduzzi 
Tortona (AL) 


Gentile lettore, abbiamo già preso in 
considerazione l’eventualità di 
pubblicare la routine grafica da lei 
richiesta. Per quanto invece 
concerne la simulazione delle 
funzioni PRINT AT X, Y tale routine 
è stata applicata e spiegata nel 
programma «IL GALEONE», 
pubblicato su LIST n. 4 di sett-ott a 
pag. 22. 

Spiegarle per lettera come 
trasformare i comandi associati al 
joystick, in altrettanti tasti sarebbe 
lungo, complicato e forse poco 
chiaro. 
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consigliamo, intanto, di consultare 
LIST n. 3 Maggio/Giugno 1984 alla 
oag. 93 della rubrica FAI DA TE, 
dove potrà trovare lo schema 
elettrico del joystick. 

-a nngraziomo e la invitiamo a 
• manere un nostro affezionato 
lettore. 


Perché non gira...? 

Confermiamo a quei lettori che 
ser vono a riguardo l’esattezza dei 
■stati INVADER e SFIDA 
INTERGALATTICA (CBM 64 - LIST 

n 3 84). 

Eventuali difetti o anomalie lamentati 
sono dovuti purtroppo alla diversità 
ce sistema operativo esistente tra le 
stesse macchine. 

Cercheremo in seguito di ovviare 
a inconveniente. 

L’istruzione IN sullo 
Spectrum 

Siamo due fratelli, entrambi 
programmatori dilettanti. 
Possediamo uno Spectrum 16K e 
ci piacerebbe poter creare dei 
programmi che ci diano la 
possibilità di giocare insieme. 
Perché ciò sia possibile ognuno 



di noi dovrebbe poter controllare 
sullo schermo caratteri diversi 
contemporaneamente ed avere a 
disposizione i suoi tasti da 
premere. 

Provando ad ottenere quanto 
spiegato mediante l’istruzione 
INKEY$ ci siamo accorti che se 
due tasti vengono premuti 
contemporaneamente, INKEY$ 
«diventa» una stringa vuota e non 
si ottiene nessun altro risultato. 
Come possiamo far «capire» al 
computer ciò che deve fare? 

Flavio e Fulvio 
Mardonalto - Roma 


Il «problema» da voi sottoposto è 
facilmente risolvibile mediante 
l’istruzione IN che permette al 
computer di «leggere» più di un 
«tasto» per volta. 

Potreste provare ad inserire nei 
vostri programmi una linea del tipo 
IF IN 65278 = ... THEN 
L’istruzione IN deve essere seguita 
dai seguenti numeri: 63486, 64510, 
65022, 65278, 61438, 57342, 49150, 
32766. 

Vi consigliamo comunque di 
approfondire l’uso di tale istruzione 
su della letteratura specializzata che 
non dovrebbe essere difficile reperire 
presso delle librerie qualificate o 
presso dei Computer-Centre. 


Passaggio 
ZX-81 /Spectrum 

Possiedo uno ZX-81 con 
espansione 16K. Nonostante sia 
soddisfatto del computer in sé, 
vorrei cambiarlo con uno 
Spectrum 16K per ovvi motivi di 
possibilità grafiche e sonore. So 
che il Basic fra i due è molto 
simile e questo sarebbe per me 
un grande vantaggio in quanto 
credo che non dovrei incontrare 
grandi difficoltà nella 
programmazione. L’unico dubbio 
sorto è riferito alla conversione 
dei programmi che già possiedo: 
ho letto infatti che dei 16K 
disponibili sette sono destinati a 
colori e grafica e solo nove sono 
quelli effettivi per l’utente. Stando 
così le cose mi chiedo se mi sarà 


possibile convertire i miei 
programmi dell’81 + 16K... 

Massimiliano Bianchi 
Roma 


In effetti, programmi che occupano 
tutti o quasi tutti i 16K dello ZX-81 
espanso non possono «girare» su 
uno Spectrum 16K senza modifiche. 
Ad ogni modo essendo il BASIC 
dello Spectrum simile ma anche 
decisamente superiore a quello dello 
ZX-81, è possibile ridurre 
notevolmente lo «spazio» occupato 
da un programma creato per 
quest’ultimo. 

Per esempio, con lo Spectrum è 
possibile inserire in una linea più 
istruzioni, separate semplicemente 
da un punto e virgola, il che occupa 
solo un byte mentre una linea a sé 
stante occupa ben cinque bytes solo 
di impostazione. 

Concatenare dunque più linee in una 
sola può quindi senz’altro risultare 
utile per «risparmiare» memoria. 


Errata corrige 

Programma: LA CACCIA 
(ZX-Spectrum), pag. 70, LIST 
n. 5/84 

Introdurre linea 30 

POKE 23658, 8 

Tale istruzione porta il set di 
caratteri da minuscolo a 
maiuscolo. Ciò si rende 
necessario perché il 
programma prevede che debba 
essere riconosciuto come 
premuto il tasto con carattere 
«F» e non «f» (vedi linee 1100, 
1120, 1130). 
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Siemens cambia 

Le poste tedesche hanno deciso di 
trasformare completamente il 
sistema informatico che gestisce le 
transazioni in danaro dei suoi uffici. 
Entro il 1985, infatti, le tredici sedi 
del Banco Posta della Repubblica 
Federale saranno dotati di quattro 
doppi sistemi informatici Siemens in 
grado di gestire, con un software 
completamente nuovo, il maggior 
volume delle transazioni in danaro 
che passano per le poste della 
Germania Occidentale. 



Programma «Esprit» 

Per la realizzazione del programma 
europeo di ricerca e di sviluppo della 
tecnica deN’informazione «Esprit» 
(vedi LIST di Gennaio ’85) la 
Commissione della CEE ha 
assegnato ad un consorzio di 
produttori europei costituito da 
BULL, ICL, Olivetti e Siemens, la 
prima parte di un ordine per un 
sistema sperimentale di informazione 
e comunicazione da affidare ad un 
gruppo di lavoro della Comunità che 
si occupa di tecnica 
deH’informazione e 
telecomunicazioni. Il progetto verrà 
realizzato entro i prossimi due anni. 


Obiettivi principali del progetto di 
sviluppo sono, tra gli altri, la 
creazione di uno strumento di 
comunicazione valido per il gruppo 
di lavoro, la promozione di forme di 
collaborazione tra produttori europei 
di elaboratori, l'opportunità di 
sperimentare la compatibilità degli 
strumenti prodotti dalle varie aziende 
che partecipano al progetto. 



Progetto 
«LINCE 1000» 

Questo il nome datq ad una 
iniziativa di un centro di servizi 
milanese che opera con un grosso 
computer della Siemens. Il progetto 
LINCE 1000 prevede la fornitura, a 
piccole e medie industrie, da parte 
del Centro Servizi lombardo, di un 
terminale a basso costo da mettere 
a disposizione dell’utente. Collegato 
con il grande elaboratore del centro 
l’utente può risolvere tutti i suoi 
problemi di contabilità, di magazzino 
o di gestione in genere. Il progetto 
LINCE 1000 comprende anche il 
corso d’addestramento per 
l’operatore al terminale e un 
manuale per le procedure. 



Specchio elettronico messo a punto 
dai francesi sta sbalordendo mezzo 
mondo. Il paese delle meraviglie di 
questa Alice elettronica non è 
popolato dal coniglio con II panciotto, 
dal cappellaio matto e dalla lepre 
marzolina come nel famoso racconto 
di Lewis Carroll ma semplicemente 
da un computer. Sistemato in una 
boutique o in un grande magazzino 
lo specchio-computer funziona 
grosso modo così: l’elaboratore è 
collegato ad un proiettore per 
diapositive che proietta sullo 
specchio taglia, modello e colore del 
vestito che il cliente desidera e che 
ha/ichiesto battendo i tasti del 
computer. Il cliente, o la cliente, può 
vedersi nello speccio dopo pochi 
secondi con indosso l’abito che ha 
scelto e può decidere se va bene o 
se ci sono delle modifiche da fare. 
Tutto questo avviene, naturalmente, 
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senza togliersi i vecchi abiti di 
dosso. In poco più di un’ora un 
: ente molto esigente può provare, 
con Alice, circa 300 abiti diversi. 

A ice costa una trentina di milioni e 
pare avviato ad un successo 
clamoroso. Gli americani ne hanno 
g a ordinati alcuni esemplari e i 
c apponesi sono intenzionati a 
andarlo nel loro paese. Alice 
dovrebbe piacere molto ai giovani e 
ag uomini che, notoriamente, si 
sottopongono alle prove di sartoria 
con notevole fastidio. Dovrebbe 
o-iacere meno alle donne che 
.ogliono toccare i tessuti, sentirne la 
so dità. la trama, la morbidezza. È 
molto probabile che Alice-computer 
"asformi nel paese delle meraviglie i 
randi magazzini giapponesi e 
americani. Meno probabile, invece, 
sembra una rivoluzione del costume 
cegli acquirenti europei che al 
vestire bene, e con classe, tengono 
di più. 



Una bottiglia di 
champagne, prego... 

Ed ecco il vostro Spectrum 
famutarsi in un ... sommeiler!!! 

programma che rende possibile 
questa trasformazione e che vi 
permetterà di abbinare ad ogni 
portata il vino o cocktail più indicato 
si chiama «WINE ’N’ DINE» ed è 
stato elaborato grazie alla 
consulenza di lan Hoare, chef e 
sommeiler di fama internazionale. 

_a lista di bevande comprende una 
scelta tra 450 tipi diversi. 


AT&T 



Anche nell’Olimpo delle 
telecomunicazioni si fanno errori di 
strategia che costano cari. La AT & 

T statunitense, uno dei grandi gruppi 
del settore ha chiuso il servizio di 
teleconferenza in sei delle undici 
città degli Stati Uniti dove aveva 
installato il sistema. Il gigante 
statunitense delle telecomunicazioni 
ha forse accelerato troppo i tempi. Il 
mercato della videocomnicazione, 
infatti, non è ancora così maturo 
come alcuni escerti avevano 


previsto. Nel 1983 la AT & T, con 
questo servizio ci ha rimesso più di 
quattro milioni di dollari, circa otto 
miliardi di lire, e ciò ha imposto il 
drastico ridimensionamento del 
sistema. 

La teleconferenza o videoconferenza 
è un sistema di collegamento 
audio-video tra punti diversi o città 
diverse di un paese o più paesi che 
consente, senza che i partecipanti si 
spostino dalle sedi abituali di lavoro, 
di dialogare contemporaneamente. Il 
sistema avrebbe dovuto avere 
maggiore fortuna soprattutto con le 
grandi compagnie o con le 
multinazionali che hanno una sede 
centrale e molte filiali distaccate in 
altre città o paesi. 

Con la videoconferenza, infatti, è 
possibile convocare una riunione in 
pochissimo tempo con un notevole 
risparmio sui viaggi di trasferimento, 
sulle trasferte e sui tempi di lavoro. 
Esperimenti in questo senso sono 
stati compiuti anche in Italia. Le 
video conferenze a grande distanza, 
come è facile intuire, sono possibili 
grazie ai satelliti che collegano città 
anche molto lontane l’una dall’altra. 
Ma i businessmen d’oltre oceano 
non desiderano privarsi, 
evidentemente, della possibilità di 
fare, di tanto in tanto un viaggetto e 
di vedere in viso i loro interlocutori. 
Quando si trattano affari, pare 
abbiano detto, è molto importante 
stabilire un buon rapporto umano 
con l’altra parte. E la teleconferenza 
questo rapporto del tutto naturale 
non può farlo! 



L’Italia all’estero 

Un’azienda italiana di San Giovanni 
in Persiceto, alle porte di Bologna, 
ha concluso a Tokio un accordo di 5 
anni con una azienda informatica 
giapponese per fornire arredamenti 
per uffici. L’azienda nipponica, che 
venderà in Giappone i prodotti della 
ditta italiana, su licenza, ha un 
fatturato annuo di circa 800 miliardi, 
più di 1500 dipendenti ed è 
specializzata nella automazione dei 
lavori d’ufficio. L’Italia non è 
certamente una potenza nel settore 
dell’informatica ma intanto si fa 
strada nel campo dei supporti. Se il 
buongiorno si vede dal mattino...c’è 
da sperare. 


Commodore 

Competition 

Hugh Riley ha vinto la «Commodore 
International Computer Art 
Challenge» grazie ad un suo 
disegno animato raffigurante il volto 
di un bimbo irritato da una mosca. 
Con i 5.000 $ di premio Hugh potrà 
frequentare un corso di 
specializzazione in «Computer Art». 
Oltre alla borsa di studio Hugh ha 
vinto anche circa 1.500 $ in 
apparecchiature COMMODORE. 



Per voi «giallofili» 

Per tutti gli appassionati divoratori di 
libri gialli è in arrivo «SHERLOCK», 
programma ‘adventure’ della 
Melbourne House (la stessa di 
HOBBIT), basato sulle avventure 
scritte da Sir Arthur Conan Doyle 
aventi come protagonista Sherlock 
Holmes, il famosissimo investigatore 
di Baker Street. 

Naturalmente voi siete Holmes e, 
come nella «realtà», avete come 
assistente l’altrettanto noto Dott. 
Watson. 

L’azione ha luogo nella nebbiosa 
Londra vittoriana: non mancano, 
come nei romanzi, intrighi, pericoli, 
colpi di scena e ‘suspense’. Scopo 
del gioco è di riuscire a risolvere una 
serie di indagini senza venire ucciso. 
Il vocabolario a disposizione consta 
di 800 parole. 

A Sherlock Holmes, cioè voi, viene 
data la possibilità di avvalersi della 
«collaborazione» dei vari 
personaggi, tenendo presente però 
che ognuno di essi è indipendente e 
può «rifiutarsi» di cooperare. 

Da tenere inoltre presente che, 
svolgendosi l’azione in tempo reale, 
mentre Holmes è intento nelle sue 
indagini gli altri personaggi 
continuano ad agire autonomamente 
secondo la propria personalità e le 
loro azioni variano di volta in volta. 

Le descrizioni sono così minuziose 
che effettivamente più che un gioco 
«SHERLOCK» può sembrare un 
romanzo. 

Un programma molto sofisticato 
dunque e certamente non facile, ma 
eccellente sotto tutti i punti di vista. 
Onore e Gloria ai «draghi» della 
Melbourne! 
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PARTE SECONDA 






A cura di Paolo Ciancarini 


L’HARDWARE 

Chiunque voglia usare un computer nel 
campo della scuola, ha bisogno di qualche 
nozione sul loro funzionamento, e di 
familiarizzarsi con quella parte del gergo 
informatico, che certamente avrà già avuto 
modo di orecchiare qua e là. 

Parleremo dunque, per cominciare, di 
hardware: cercheremo di catalogare i 
differenti tipi di computer, per poi occuparci, 
in maniera più particolareggiata, dei 
componenti che costituiscono qualsiasi 
sistema di elaborazione: dal piccolo 
calcolatore casalingo al grande centro di 
elaborazione dati. 

TIPI DI COMPUTERS 

È certo che è stato l’avvento della cosiddetta 
microinformatica che più di ogni altra cosa 
ha promosso l’uso di massa degli elaboratori 
elettronici. La sofisticazione raggiunta, ad un 
prezzo che ormai tutti possono affrontare, 
comincia oggi a dare i suoi frutti. Entrati nelle 
nostre case come giocattoli, gli home 
computers permettono oggi usi altamente 
specialistici, come la generazione di musica 
elettronica, o l’elaborazione automatica di 
testi. Solo 5 anni fa possibilità del genere a 
livello «casalingo» erano al di là di ogni 


immaginazione. 

Ad un livello più alto per prezzo e prestazioni 
troviamo i personal computers, il cui uso è 
prevalentemente gestionale-amministrativo: 
sono i sistemi usati nel mondo economico 
per compiti come la gestione di magazzino, 
la contabilità, la stesura di piani 
d’investimento. Dal punto di vista 
dell’hardware, la principale differenza rispetto 
agli home computers è la maggiore quantità 
di memoria a disposizione, necessaria del 
resto per i compiti che abbiamo detto. 

Un vero salto di qualità, dal punto di vista 
della potenza di elaborazione, si ha solo con 
i minicomputers, che cominciarono a 
svilupparsi nella seconda metà degli anni 
70. Ebbero grande popolarità quando si 
cominciava appena a parlare di informatica 
distribuita: cioè della possibilità di costruire 
sistemi di elaborazione costituiti da reti di 
computers geograficamente distanti l’uno 
dall’altro, interconnessi da linee telefoniche o 
speciali. Oggi i mini sono realmente 
un’ottima alternativa ai sistemi detti 
mainframes, cioè agli enormi calcolatori che, 
diretti discendente dei primi calcolatori 
costruiti 30-40 anni fa, si usano per 
elaborare grossissime quantità di dati, come 
nel caso deH’amministrazione fiscale o 
sanitaria a livello nazionale. 

Al massimo livello di questa rapida carrellata 


16 
















troviamo i cosiddetti supercomputers, come 
! CRAY-1 americano, o come quelli che il 
governo giapponese chiama «computer di 
quinta generazione». Sono calcolatori con 
una fantastica potenza di calcolo, spesso 
basati su principi elettronici o addirittura 
schemi logici completamente nuovi (il 
progetto giapponese è ancora in fase di 
sviluppo). 

Riassumendo, possiamo dunque identificare 
le seguenti classi di sistemi di elaborazione 
abbiamo riportato a fianco, a titolo di 
confronto, l’ordine approssimativo di 
grandezza dei relativi costi e della capacità 
di memoria centrale): 


Classe 


Costo 

approssim. 

Memoria 

centrale 

1 Home computers 

L. 

1.000.000 

64K 

2 Personal computers 

L. 

10.000.000 

128/256K 

3 Minicomputers 

L. 

100.000.000 

1/4M 

4. Mainframe 

L. 

1.000.000.000 

4/16M 

5 Supercomputers 

L. 

10.000.000.000 

16M e 
oltre 


LO SCHEMA LOGICO 

Abbiamo finora parlato parecchio di 
«sistemi» di elaborazione, più che di 
calcolatori. Questo perché è utile pensare un 
computer non come un blocco unico, ma 
piuttosto come costituito da tanti componenti 
con compiti specializzati. Schematicamente, 
possiamo elencare i seguenti: 

a. il processore (o meglio, i processori) 

b. la memoria (interna ed esterna) 

c. i dispositivi periferici (di input e output) 



SCHEMA LOGICO DI UN SISTEMA HOME-COMPUTER 



INPUT 


OUTPUT 
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IL PROCESSORE 

Il cuore del sistema, il motore primo di tutte 
le attività del vostro computer, è un piccolo 
frammento di silicio. In realtà in genere 
persino un piccolo home computer contiene 
più di un processore. Un Commodore 64, 
per esempio, o uno dei nuovi sistemi con 
standard MSX, ne contengono tre: 


Funzione 

CPU 

musica e suono 
video e grafica 


Commodore64 

MCS6510 

SID6581 

CIA6526 


Standard MSX 
Z80 

GI38910 

TMS9918A 


L'unità centrale di elaborazione (detta 
CPU, centrai processing unit) è il processore 
principale: quello che fa tutti i conti ed 
esegue le istruzioni dei programmi. La CPU 
comprende un linguaggio in codice binario 
(cioè sequenze di cifre 0 o 1) detto 
linguaggio macchina, tipiche istruzioni in 
linguaggio macchina sono addizioni, 
sottrazioni (non necessariamente 
moltiplicazioni e divisioni), spostamento di 
dati in memoria, salti ad altre istruzioni. 
Qualsiasi sia il linguaggio in cui 
programmate — BASIC, LOGO, PASCAL — 
questo viene comunque tradotto in 
linguaggio macchina. Programmi scritti in 
linguaggi corno LOGO, o PASCAL hanno 
bisogno di molta traduzione e quindi di più 
tempo di esecuzione rispetto a programmi 
scritti in BASIC o in ASSEMBLER. 
L’assembler è molto simile al linguaggio 
macchina: se ne differenzia solo perché 
permette l’uso di codici simbolici al posto di 
cifre in binario, l'migliori videogiochi che 


possedete sono probabilmente scritti in 
linguaggio macchina. D’altra parte, scrivere 
programmi in LOGO, o in PASCAL, è molto 
più semplice e assai meno faticoso che 
scriverli in BASIC, o in ASSEMBLER. 

Gli altri processori presenti in quasi tutti gli 
home computers più moderni sono il 
processore videografico e quello musicale. Il 
primo controlla tutto quello che succede sul 
video (e quindi anche i collegamenti con i 
joysticks o la penna luminosa, che sono 
strumenti che conoscono bene i lettori 
che...videogiocano molto), mentre il secondo 
dà la possibilità di generare suoni mediante 
un dispositivo di output. 

Questi due processori «comprendono» 
ciascuno un linguaggio macchina diverso da 
quello della CPU, che spesso occorre 
conoscere bene per poterne sfruttare le 
possibilità. Nel caso del BASIC del C64, 
infatti, non esistono istruzioni BASIC grafiche 
o musicali, e tutto avviene mediante 
istruzioni POKE e PEEK, che sono il modo 
del C64 di rendere «trasparente» il 
linguaggio macchina all’utente. Invece il 
BASIC degli MSX (più moderno) possiede 
istruzioni come LINE, per tracciare linee, 
COLOR, per colorare aree dello schermo, o 
PLAY, per suonare note. 

Dovrebbe dunque essere chiaro ora perché 
un programma che sfrutta molto la grafica o 
il suono del C64 (come di solito succede con 
i videogiochi) non può facilmente essere 
adattato ad un altro calcolatore con un 
linguaggio macchina differente, benché 
magari entrambi comprendano lo stesso 
BASIC. Questa è la ragione per cui chi 
possiede il nuovo Commodore Plus4 non 
potrà usare i videogiochi del C64: le due 
macchine hanno infatti processori differenti 
che comprendono differenti linguaggi 
macchina. 

Invece un programma scritto in BASIC 
standard MSX è accettato su qualsiasi altro 
computer anche di marca diversa perché il 
linguaggio macchina, per definizione di 
standard, è lo stesso! 

Comunque, una delle conseguenze di questo 
fatto è che se urvdocente o uno studente 
vogliono scrivere in BASIC programmi che 
sfruttino le capacità grafico-musicali del loro 
computer, costoro debbono per forza 
approfondire lo studio del linguaggio 
macchina. È chiaramente molto meno 
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faticoso usare invece urfo degli ottimi 
programmi in commercio che trasformano il 
vostro calcolatore in una fantastico 
strumento per comporre, stampare e 
suonare musica, oppure produrre e stampare 
schemi tecnici o disegni. 

Ma di questo tipo di software parleremo più 
avanti. 

MEMORIA 

Per poter elaborare una informazione, il 
processore deve prenderla da qualche parte, 
esattamente come qualcuno che fa molti 
conti ha bisogno di carta a quadretti per 
sommare e conservare i risultati parziali. 

La memoria interna (detta anche memoria 
centrale) è per il vostro computer ciò che la 
carta è per voi. 

La memoria interna è di due tipi: RAM e 
ROM. Quando la CPU esegue un 
programma, ha bisogno di due diversi tipi di 
informazioni: istruzioni da eseguire e dati da 
elaborare. Entrambi sono memorizzati nella 
memoria RAM (Random Access Memory: 
memoria ad accesso casuale). I vostri 
programmi, sia che li scriviate da tastiera, sia 
che li carichiate da nastro o disco, finiscono 
in RAM. Anche i dati che elabora la CPU 
vengono memorizzati in RAM. Su questo tipo 
di memoria la CPU può sia leggere che 
scrivere. 

Invece da memoria ROM si può solo 
leggere. D’altra parte mentre la memoria 
RAM viene completamente cancellata 
quando si spegne il computer, quella ROM è 
indelebile: ciò è molto utile, perché quando 
accendete il computer, la CPU comincia 
subito ad eseguire le istruzioni contenute 
nella ROM, che generalmente seguono la 
seguente successione: 

— test di funzionamento corretto 

— attivazione del programma di traduzione 
BASIC-linguaggio macchina (detto 
interprete): all’accensione attivate 
immediatamente la possibilità di scrivere 
programmi in BASIC. 

Notate che le cartridges, le scatolette che 
contengono alcuni dei giochi più belli, sono 
ROM che quando sono usate diventano una 
specie di «estensione» della memoria del 
vostro computer. 

Le caratteristiche fondamentali della 


memoria interna dunque sono tre: 

— alta velocità di scambio di informazioni col 
processore 

— alto costo 

— volatilità (per la RAM): quando spegnete il 
computer la memoria si azzera, cosicché 
quandd lo riaccendete è completamente 
vuota. 

Da quest’ùltimo fatto sorge la necessità di 
uno o più dispositivi che offrano la possibilità 
di conservazione permanente delle 
informazioni, siano esse dati o programmi. 

Le case produttrici di home computers 
risolsero il problema dapprima fornendo 
dispositivi idi memoria esterna permanente 
(detti anche memoria di massa, perché 
possono contenere grandi quantità di 
informazioni) mediante registratori a 
cassetta, e poi, col decrescere dei costi, con 
unità a dischi (floppy disk drive). La memoria 
esterna, rispetto a quella interna, ha 
caratteristiche complementari: 

— basso costo; 

— memorizzazione permanente; 

— maggiore lentezza nello scambio di 
informazione col processore. 

Come si misura la quantità di memoria 
messa a disposizione da un calcolatore? 

Un computer elabora e memorizza 
informazioni mediante un codice elettronico 
basato su due intensità di corrente: 0 volts e 
5 volts, che a tutti gli effetti possono essere 
simbolizzati dalla cifra 0 e dalla cifra 1. Tali 
voltaggi sono chiamati bit. Poiché noi 
usiamo invece ben più di due simboli per 
comunicare, occorre usare gruppi di bit per 
rappresentare caratteri più familiari, come le 
lettere dell’alfabeto. 

Dunque, con 1 bit avete 2 possibilità (0 o 1) 
di rappresentazione; con 2 bit avete 4 
possibilità (00, 01, 10, 11 ), con 3 bit 8 
possibilità, e così via. È chiaro che un codice 
utile dovendo poter rappresentare le 26 
lettere maiuscole, le 26 minuscole, le 10 
cifre, i simboli d’interpunzione, lo spazio, 
qualche carattere speciale ha bisogno di 
almeno un centinaio di possibilità: occorre un 
codice di almeno 7 bit (128 possibilità). Tale 
è il codice standard usato dalla stragrande 
maggioranza degli elaboratori, detto codice 
ASCII (American Standard Code for 
Information Interchange). 
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ASCII 

ASCII 

ASCII 

Codice 

Carattere 

Codice 

Carattere 

Codice 

Carattere 

000 

NUL 

043 

+ 

086 

V 

001 

SOH 

044 

» 

087 

W 

002 

STX 

045 

— 

088 

X 

003 

ETX 

046 


089 ' 

Y 

004 

EOT 

047 


090 

Z 

005 

ENQ 

048 

0 

091 

[ 

006 

ACK 

049 

1 

092 

\ 

007 

BEL 

050 

2 

093 

] 

008 

BS 

051 

3 

094 

A 

009 

HT 

052 

4 

095 

< 

010 

LF 

053 

5 

096 

' 

011 

VT 

054 

6 

097 

a 

012 

FF 

055 

7 

098 

b 

013 

CR 

056 

8 

099 

c 

014 

SO 

057 

9 

100 

d 

015 

SI 

058 


101 

e 

016 

DLE 

059 

* 

102 

f 

017 

DC1 

060 

> 

103 

g 

018 

DC2 

061 

— 

104 

h 

019 

DC3 

062 

> 

105 

i 

020 

DC4 

063 

? 

106 

j 

021 

NAK 

064 

© 

107 

k 

022 

SYN 

065 

A 

108 

1 

023 

ETB 

066 

B 

109 

m 

024 

CAN 

067 

C 

110 

n 

025 

EM 

068 

D 

111 

0 

026 

SUB 

069 

E 

112 

P 

027 

ESCAPE 070 

f 

113 

q 

028 

FS 

071 

G 

114 

r 

029 

GS 

072 

H 

115 

s 

030 

RS 

073 

1 

116 

t 

031 

US 

074 

J 

117 

u 

032 

SPACE 

075 

K 

118 

V 

033 

! 

076 

L 

119 

w 

034 

n 

077 

M 

120 

X 

035 


078 

N 

121 

y 

036 

$ 

079 

O 

122 

z 

037 

% 

080 

P 

123 

{ 

038 

& 

081 

Q 

124 


039 

/ 

082 

R 

125 

\ 

/ 

040 

( 

083 

S 

126 


041 

) 

084 

T 

127 

DEL 

042 

* 

085 

U 




I codici sono in forma decimale 

LF = Line Feed, FF = Form Feed, CR = Carriage Return, 
DEL = Rubout 

e sono esempi dei caratteri di controllo 1-32. 


media). 1024K formano 1M («un Mega >). 

Un C64 possiede 64K RAM che si possono 
usare tutti solo se si programma in 
linguaggio macchina. Usando il BASIC, la 
ROM dell’interprete ‘consuma’ circa 26K, e 
lascia accessibili 39K. 

Un computer MSX standard ha 32K RAM + 
32K Rom. 

Per confronto, un floppy disk per l’unità a 
dischi del C64 può contenere fino a 170K, 
mentre un nastro da 60 minuti può contenere 
anche 1000K. 

Nel prossimo numero concluderemo questa 
rapida introduzione all’hardware degli home 
computers. 


In realtà ogni computer aggiunge un bit di 
controllo per ogni gruppo di 7 (per sicurezza: 
anche gli elaboratori possono sbagliare!), 
giungendo così ad 8 bit: questa è l’unità 
minima di informazione elaborata, ed ha un 
nome speciale: byte. 1024 (2 alla 10) bytes 
formano 1Kbyte (si scrive 1K, si legge «un 
Kappa»), che è ormai l’unità fondamentale di 
misura deN’informazione (mille caratteri 
equivalgono a circa mezza pagina di libro, in 
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MOVIT - EDUCATIONAL KIT 

Robot MOVIT 


I piccoli robots programmabili che LIST 
mette a disposizione dei propri lettori in 
scatola di montaggio rappresentano la prima 
generazione di micro-robot ad un prezzo 
accessibile per il grosso pubblico. 

II divertimento comincia già in fase di 
montaggio: ma certo non è tutto! 

Ogni kit è composto di due parti: la 
meccanica e l’elettronica. La messa a punto 
è molto semplice, perché riguarda soltanto le 
parti meccaniche: quelle elettroniche sono 
già completamente assemblate su una 
piastra. 

Esiste tutta una linea di robots, articolata su 
una dozzina di modelli: il più semplice si 
chiama «Monkey», possiede due braccia di 
plastica da attaccare ad un filo, e si 
comanda semplicemente battendo le mani. 

Il Line Tracer è invece dotato di un sistema 
di controllo a raggi infrarossi che permette al 
robot di muoversi seguendo linee qualsiasi 
tracciate su un foglio. 

Quest’ultimo è molto interessante per 

I evidente analogia con il comportamento 
della tartaruga del linguaggio LOGO: qui la 
tartaruga non è un triangolino su uno 
schermo televisivo, ma un robot in carne...e 
plastica! 

II più istruttivo sia nel montaggio che nell’uso 
è il Memocom Crawler: è totalmente 
programmabile. I comandi a disposizione 
sono sei: avanti, destra, sinistra, 
lampeggiamento, emissione di un segnale 
sonoro, pausa. La «tastiera» permette di 
inserire fino a 256 istruzioni di questo 
genere. In pratica il Crawler è una vera e 
propria LOGO-tartaruga, capace di eseguire 
le stesse complicate evoluzioni che potete 
ammirare sullo schermo. 

Ma assai più affascinanti sono le possibilità 
che offrono i nuovi modelli della linea, 
annunciati per i prossimi mesi: quelli della 
serie Wizerd. Questi robot si programmano 
mediante un home computer, come ad 
esempio quelli MSX standard, oppure col 
Commodore64. 

Il sistema fa uso di una cartridge ROM/RAM 
che viene prima programmata mediante la 


tastiera del computer, e poi inserita nel robot 
(la parte RAM ha un’autonomia di dieci 
minuti). 

La ROM include un editor di programmi. La 
RAM ha una capacità di 1K, pari a 256 
istruzioni. Esistono 16 tipi di istruzioni, che 
corrispondono a 16 modi di muoversi del 
robot. I movimenti elementari (avanti, destra, 
sinistra, lampeggiamento, suono) hanno una 
durata (modificabile) di mezzo secondo circa. 
Quindi si possono programmare 
«passeggiate» lunghe più di due minuti. 

Qual è l’utilità di questi robots? Innanzitutto li 
consigliamo a tutti coloro che amano i kits di 
montaggio: dopo gli aquiloni, le navi le auto, 
gli aereoplanini, è oggi d’obbligo cimentarsi 
finalmente con la costruzione di un robot! 

Ma più importanti sono i fini educativi più 
generali derivanti dalla possibilità di 
programmare i movimenti. Tutti coloro che 
sono interessati alla didattica del linguaggio 
LOGO se ne renderanno facilmente conto. 
Avere la possibilità di manovrare una 
tartaruga «vera» non può non affascinare 
qualsiasi bambino che impara a 
programmare in LOGO. Per di più questo 
approccio «realistico» alla programmazione è 
molto più coerente con le teorie 
dell’apprendimento sviluppate dal famoso 
pedagogista Piaget, così come sono 
sviluppate nel libro Mindstorms di S. Papert, 
inventore del LOGO. 

Infatti all’Università di Edimburgo una 
tartaruga molto simile al Wizerd è stata 
preferita al LOGO su schermo in esperimenti 
di recupero di bambini handicappati, in 
particolare autistici. In effetti, sembra molto 
più semplice rendere tangibile l’esperienza di 
programmazione usando un robot che non 
uno schermo. 

Una cosa è comunque chiara: l’evoluzione 
dei robot MOVIT sta avvenendo molto 
rapidamente: pensate che il primo uscì solo 
4 anni fa; oggi è già in progetto il primo 
home computer-robot, completamente 
autosufficiente. Riusciremo a fargli lavare i 
piatti? 
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PARTE SECONDA 

I SPEAK LOGO 

A cura di Paolo Ciancarini 


PROCEDURE 

Abbiamo visto la volta scorsa come muovere 
i primi passi nel mondo della tartaruga. 
Ricordate come è stato semplice disegnare 
figure complesse usando le 
istruzioni-tartaruga AVANTI, INDIETRO, 
DESTRA e SINISTRA? 

Avevamo disegnato quadrati, pentagoni ed 
esagoni mediante i programmi 

RIPETI 4 (AVANTI 50 DESTRA 90) 

RIPETI 5 (AVANTI 50 DESTRA 72) 

RIPETI 6 (AVANTI 50 DESTRA 60) 



Avete trovato la formula generale per 
calcolare l’angolo corretto per disegnare un 
qualsiasi poligono regolare? È molto 
semplice: dato che la tartaruga deve fare un 
giro completo su se stessa mentre traccia la 
figura, è evidente che in totale girerà per 360 
gradi. Dunque l’angolo cercato si ottiene 
dividendo 360 per il numero di angoli (che 
sono naturalmente tutti uguali). Il risultato 
della divisione lo calcoliamo mediante 
l’operazione 7" (ricordatevi di lasciare gli 
spazi bianchi!). Provate a scrivere 

PER EPTAGONO 

RIPETI 7 (AVANTI 30 DESTRA (360 / 7)J 
FINE 



(naturalmente alla fine di ogni riga occorre 
battere il tasto «RETURN»). 

Stavolta non abbiamo scritto solo una serie 
di comandi: scrivendo PER EPTAGONO 
abbiamo definito una PROCEDURA. In 
pratica è come se avessimo spiegato 
all’interprete LOGO (l’interprete è quel 
programma che esegue i vostri programmi) 
che per fare un EPTAGONO deve eseguire i 
comandi primitivi che abbiamo elencato. 

D ora in poi quando scriveremo EPTAGONO, 
la Tartaruga eseguirà i comandi contenuti 
nella definizione della procedura, e 
disegnerà un poligono regolare di 7 lati. 
Abbiamo a tutti gli effetti aggiunto un nuovo 
comando a quelli che la Tartaruga conosce: 
abbiamo esteso il suo linguaggio! 
Analogamente possiamo scrivere: 

PER QUADRATO 

RIPETI 4 [AVANTI 50 DESTRA (360 / 4)J 
FINE 


PER OTTAGONO 

RIPETI 8 [AVANTI 35 DESTRA (360 / 8)] 
FINE 

/~\ 
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La possibilità di definire procedure è una 
delle caratteristiche che LOGO ha in comune 
con i migliori linguaggi di programmazione 
(PASCAL, ADA, ecc.), e che lo rende tanto 
superiore al BASIC (una subroutine NON è 
una procedura!). 

Nota: vi sarete accorti che quando scrivete 
PER QUADRATO entrate in nuovo ambiente 
(detto ambiente di EDIT : in LOGO 
Commodore potete anche scrivere EDIT 
QUADRATO). In edit lo schermo assume 
questa forma: 


PER QUADRATO 


editor è una parte del sistema LOGO che 
serve per definire procedure (per chi 
conosce il BASIC: in BASIC l’editor è attivato 
attribuendo dei numeri — le etichette — alle 
istruzioni). Per uscire dalla fase di edit, dopo 
aver scritto FINE premete il tasto «CTRL-C» 
(cioè mentre tenete premuto il tasto CTRL 
premete il tasto C) e vedrete che LOGO 
risponderà con QUADRATO DEFINITO. Se 
ora scrivete QUADRATO entrerete in 
ambiente DISEGNA e la Tartaruga eseguirà 
la procedura. 

In un certo senso quando definite 
QUADRATO insegnate alla Tartaruga come 
fare un quadrato: avete comunciato a creare 
il vostro particolare linguaggio-Tartaruga! 
Esistono molti comandi per facilitarvi la 
definizione e l’uso di procedure. Ad 
esempio, per vedere la definizione di una 
procedura si usa il comando STAMPA: 

STAMPA QUADRATO 

che ottiene la stampa su video della 
definizione della procedura QUADRATO. 

Per cancellare una procedura (il che si rende 


necessario quando la memoria è piena) si 
scrive 

CANCELLA QUADRATO 

I comandi 

STAMPA TUTTO 
CANCELLA TUTTO 

rispettivamente stampano e cancellano tutte 
le procedure definite. Invece il comando 

STAMPANOMI 

elenca solo i nomi delle procedure definite 
sino a quel momento. Inoltre, se possedete 
una stampante, col comando 

STAMPANTE 

tutto il testo che compare su video viene 
anche stampato. Purtroppo stampare le 
figure create con la tartaruga è assai più 
complicato, se non si possiede il plotter. 


DISEGNI COMPLESSI 

Se una procedura, una volta definita, 
equivale ad un comando primitivo (come 
AVANTI, o DESTRA), evidentemente può 
essere usata aH’interno di altre procedure 
come se fosse un comando primitivo: 

PER FINESTRA 

RIPETI 4 (QUADRATO SINISTRA 90] 

FINE 
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Quando una procedura è chiamata all’interno 
di un altra si chiama SOTTOPROCEDURA. 
L’uso di sotto procedure è vantaggioso sotto 
molti aspetti: 

— innanzitutto accorcia i programmi, che 
altrimenti sarebbero costituiti da 
sconfinate sequenze di comandi primitivi; 

— rende più semplice la comprensione di 
un programma, se si usa l’accorgimento 
di usare nomi significativi (non chiamate 
QQ una procedura che disegna 2 
quadrati: chiamatela 2QUADRATI); 

— una volta definita, una procedura può 
essere usata anche in altri programmi: in 
pratica se scegliete bene le procedure di 
base potete costruire tutto un linguaggio 
personale (una LIBRERIA di procedure), 

— è più facile progettare un programma 
scomponendolo in blocchi, cioè procedure 
sempre più semplici. Nel seguito useremo 
molto questo metodo, detto 

«programmazione per raffinazione 
incrementale». 

Vediamone qualche altro esempio: 
cerchiamo di disegnare un semplice 
pupazzo: 

PER PUPAZZO 
CORPO 
GAMBE 
BRACCIA 
TESTA 
FINE 


AVANTI 20 DESTRA 90 

AVANTI 20 INDIETRO 40 

AVANTI 20 SINISTRA 90 INDIETRO 20 

FINE 

Provate voi ad immaginare la procedura 
TESTA! 


PROCEDURE CON ARGOMENTO 

Per quanto comoda, la procedura 
QUADRATO disegna comunque sempre lo 
stesso quadrato; se ne voglio uno più piccolo 
o più grande devo cambiare la definizione di 
QUADRATO, oppure scrivere un’altra 
procedura. Visto che i comandi primitivi 
accettano argomenti a piacere (AVANTI 30, 
AVANTI 100), perché mai per le procedure 
dovrebbe essere diverso? 

In LOGO è possibile assegnare argomenti 
alle procedure: basta che, quando ne definite 
una, dopo il nome della procedura scriviate il 
nome dell’argomento, facendolo precedere 
dal simbolo Ora ovunque occorre usare 
dentro la procedura il valore deN’argomento 
(che deciderete quando invocate la 
procedura), scrivetene il nome: 

PER QUADRATO: LATO 

RIPETI 4 [AVANTI: LATO DESTRA 90| 

FINE 

Abbiamo così una procedura per disegnare 
un quadrato di lato qualsiasi: basta 
«chiamarla » assegnandole l’argomento 
voluto: 



PER CORPO 
AVANTI 30 
INDIETRO 30 
FINE 

PER GAMBE 
GAMBA. SINISTRA 
GAMBA.DESTRA 
FINE 

PER GAMBA.SINISTRA 

DESTRA 30 INDIETRO 30 SINISTRA 90 

AVANTI 5 INDIETRO 5 DESTRA 90 

AVANTI 30 SINISTRA 30 

FINE 

PER GAMBA.DESTRA 

SINISTRA 30 INDIETRO 30 DESTRA 90 

AVANTI 5 INDIETRO 5 SINISTRA 90 

AVANTI 30 DESTRA 30 

FINE 

PER BRACCIA 


QUADRATO 50 

QUADRATO 100 


Il nome: LATO si chiama «argomento 
FORMALE», il valore 50 (o 100), assegnato 
alla procedura QUADRATO quando viene 
chiamata, si chiama « argomento 
ATTUALE». Quando l’interprete LOGO deve 
eseguire QUADRATO 50, andrà a sostituire 
tale valore ovunque nella procedura è usato 
il nome: LATO. 
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È importante quindi sottolineare la 
distinzione tra il momento di definizione, ed 
il momento di uso (INVOCAZIONE) di una 
procedura. Scrivere 

QUADRATO: LATO 

oppure 

PER QUADRATO 50 

non ha alcun senso, perché nel primo caso 
state cercando di invocare la procedura 
dandole un argomento formale, mentre nel 
secondo cercate di definire una procedura 
dandole un argomento attuale. Entrambe le 
istruzioni sono scorrette. 

Osservate inoltre come siamo riusciti via via 
a generalizzare l’algoritmo per disegnare un 
quadrato: prima con l’uso di RIPETI, poi con 
quello deH’argomento: LATO. Avere algoritmi 
sempre più generali è importante perché è 
come possedere strumenti molto versatili, da 
usare nelle più diverse situazioni con pochi 
accorgimenti. Le nostre procedure più 
saranno generali più saranno utili. 

Se andate a rivedere le definizioni delle 
procedure QUADRATO, PENTAGONO, ecc., 
vi accorgerete che possono a loro volta 
essere tutte riassunte dalla procedura 
seguente, che ha due argomenti: 

PER POLIGONO: NUMERO.LATI: LATO 

RIPETI: NUMERO.LATI [AVANTI: LATO DESTRA (360 / : 

NUMERO.LATI)] 

FINE 

POLIGONO 6 30 DISEGNA UN ESAGONO DI LATO 30 

o 

POLIGONO 30 6 DISEGNA UN ’TRENTAGONO’ DI LATO 



Notate che l’ordine degli argomenti attuali è 
importante. 

POLIGONO è in effetti il punto di partenza di 
un nuovo modo di capire la geometria, forse 
più semplice e divertente di quelli che già 
conoscete. La «Geometria della Tartaruga» 
potrebbe essere insegnata (negli USA ed in 


Gran Bretagna sono stati compiuti 
esperimenti a tale riguardo) sin dalla scuola 
materna, perché è molto facile trasformarla 
in un gioco bellissimo. Notate che oltre a 
ridefinire in modo algoritmico i concetti già 
noti della geometria euclidea e di quella 
analitica, è possibile introdurne di 
completamente nuovi, come vedremo nel 
seguito di queste esplorazioni. 

Non è difficile produrre meravigliose strutture 
anche molto complesse usando la procedura 
POLIGONO: 

PER MULTI POLIGONO: ESTERNO: INTERNO 

RIPETI: ESTERNO [DESTRA (360 / : ESTERNO) 
POLIGONO: INTERNO 40] 

FINE 

MULTI POLIGONO 10 5 



PER RUOTA POLIGONO: NUM.LATI: ANGOLO 
RIPETI (360 / : ANGOLO) [DESTRA: ANGOLO 
POLIGONO: NUM.LATI 50] 

FINE 

RUOTAPOLIGONO 4 15 



dizionario italiano-inglese delle parole LOGO introdotte in 
questa lezione: 


Termine 

italiano 

PER 

FINE 

PROCEDURA 

DEFINITO 

STAMPA 

CANCELLA 

STAMPANOMI 

TUTTO 

STAMPANTE 

FERMASTAMPANTE 

BIBLIOGRAFIA 


Termine 

inglese 

TO 

END 

PROCEDURE 

DEFINED 

PRINTOUT 

ERASE 

PRINTOUTTITLES 

ALL 

PRINTER 

NOPRINTER 


Abbr. 

inglese 


PO 

POTS 


Abelson, diSessa «Turtle Geometry» MIT 
Press 198. 
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LOAD and RUN (SHARP MZ-700) 


Molti degli utenti dello SHARP 
MZ-700 probabilmente si saranno 
chiesti se sia possibile mandare 
automaticamente in esecuzione un 
programma appena caricato senza 
dover necessariamente impostare il 
comando «RUN». Ebbene, esiste 
questa possibilità, e vi suggeriamo 
ben tre modi diversi per ottenere lo 
scopo. 

La maniera più semplice per far 
«girare» automaticamente un 
programma dopo il caricamento (e 
certamente molti di voi l’avranno già 
scoperto) consiste neH’impostare la 
coppia di istruzioni «LOAD:RUN» e 
battere il tasto «CR»: dopo aver 
premuto «PLAY» il programma viene 
caricato, quindi passa 
automaticamente in esecuzione. 
Usando tale metodo, però, la coppia 
di istruzioni deve essere scritta ogni 
volta che si deve caricare un 
programma: conviene quindi inserire 
in uno dei tasti funzionali (F1-F5) la 
coppia di comandi, in modo da 
poterli eseguire, premendo 
semplicemente il tasto relativo, per 
tutto il tempo in cui il computer 
rimane acceso. 

Come è noto, dopo aver caricato il 
BASIC, i tasti funzionali sono 
automaticamente indirizzati su 10 
comandi e/o istruzioni il cui elenco 
su video si ottiene impostando il 
comando «KEY LIST»; scegliete il 
tasto in cui volete inserire la coppia 
«LOAD:RUN» (ad esempio F3) e 
battete il seguente comando: 


DEF KEY(3) = “LOAD” + 

CHR$(13) + “RUN” + CHR$(13) 

Il tasto «F3» è ora indirizzato con 
queste istruzioni (che hanno 
sostituito il comando «AUTO»): 
premetelo. Compare la scritta 
«LOAD» seguita da «PLAY»: inserite 
la cassetta con il vostro programma 
e premete il tasto «PLAY» sul 
registratore; il programma verrà 
caricato, quindi automaticamente 
eseguito. 

Il secondo metodo è indubbiamente 
più elegante e funzionale del primo: 
tuttavia, è necessario indirizzare il 
tasto funzionale ogni volta che si 
accende il computer e si carica il 
BASIC. Conviene, a questo punto, 
modificare il programma BASIC 
inserendo la nostra coppia 
«LOAD:RUN» negli indirizzi di 
memoria che controllano la 
definizione dei tasti funzionali e 
registrare su una nuova cassetta il 
BASIC così modificato. 

Considerato che l’istruzione «CONT» 
viene utilizzata di rado, abbiamo 
pensato di operare la modifica sul 
tasto funzionale «F3», spostando 
l’istruzione «AUTO» in «F8» (al 
posto di «CONT») ed inserendo in 
«F3» la coppia «LOAD:RUN». Le 
istruzioni per la copia e la correzione 
del programma BASIC sono riportate 
a pag. 209 e 210 del manuale: ad 
esse faremo riferimento nel dettaglio 
delle operazioni di modifica 
dell’interprete e della sua successiva 
registrazione. 


1) Eseguite le istruzioni dal punto 1 
al punto 5 di pag. 209. 

2) Quando compare l’asterisco 
impostate il comando di modifica 
memoria «M 2542»; sostituite, 
nell’ordine, i codici contenuti negli 
indirizzi da 2542 a 2548 con i 
seguenti: 

09 - 4C - 4F - 41 - 44 - OD - 52 - 55 
- 4E - OD 

3) Premete «SHIFT-BREAK» quindi 
impostate il comando «M 2593» e 
sostituite i codici degli indirizzi da 
2593 a 2596 con i seguenti: 

41 - 55 - 54 - 4F 

quindi premete «SHIFT-BREAK». Le 
modifiche sono così completate. 

4) Introducete nel registratore una 
cassetta vergine ed eseguite le 
istruzioni dal punto 6 al punto 16 di 
pag. 209 e 210 del manuale. 

Potete ora verificare il risultato delle 
vostre fatiche: spegnete il computer, 
quindi riaccendetelo e caricate il 
BASIC modificato appena registrato; 
premendo il tasto «F3» insieme a 
«SHIFT» deve visualizzarsi 
l’istruzione «AUTO», mentre 
premendo il solo «F3» deve essere 
possibile caricare ed avviare 
automaticamente qualunque 
programma. 
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HANDBOOK: SAVE, LIST, 
STOP/RESTORE...STOP!!! 


Molti lettori ci scrivono sottoponendo 
alla nostra attenzione quanto 
«scoperto» per poter disattivare 
determinati comandi dei loro VIC 20 
o CBM 64, quali quelli indicati nel 
titoletto. 

Ringraziandoli per la fiducia 
accordataci in qualità di esperti, 
siamo lieti di pubblicare alcuni di 
questi «trucchetti» e di sottoporli 
all’attenzione di tutti i nostri lettori. 
Resta sottointeso che nonostante 
queste istruzioni sembrino svolgere 
egregiamente la loro funzione, c’è da 
prenderle con le «pinze»: è infatti da 
tenere sempre presente che con 
qualsiasi comando che vada ad 
intervenire sul sistema operativo, si 
può correre il rischio di «effetti 
collaterali» non desiderati se non, 
addirittura, del blocco del sistema 
stesso. 


VIC 20 

- POKE 808, 114: neutralizza lo 
STOP, ma non la combinazione 
STOP/RESTORE 

- POKE 808, 100 o POKE 808, 127: 
neutralizzano STOP, 
STOP/RESTORE e LIST 

- POKE 808, 112: riattiva quanto 
neutralizzato con le istruzioni 
precedenti 

- POKE 818, 73: POKE 819, 245: 
neutralizza il comando SAVE che 
può essere riattivato mediante 
STOP/RESTORE, a meno che non 
sia stato disattivato anche questo 

- POKE 775, 0: neutralizza il 
comando LIST 

- POKE 775, 199: riattiva LIST 


CBM 64 

- POKE 808, 239: neutralizza STOP, 
ma non la combinazione 
STOP/RESTORE 

- POKE 808, 225: neutralizza STOP, 
STOP/RESTORE e LIST 

- POKE 808, 237: riattiva quanto 
neutralizzato con le istruzioni 
precedenti 

- POKE 775, 200: neutralizza il 
comando LIST 

- POKE 775, 167: riattiva LIST 


VIC 20 / CBM 64 

- POKE 649, 0: neutralizza la 
tastiera 

- POKE 649, 10: riattiva la tastiera 
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Lezioni 8, 9 e 10. Il corso di Basic per il Sega SC-3000 si avvia alla conclusione. 
Nel prossimo numero le ultime lezioni. 


10 CLS : 2$=CHR$ ( 34 D 

20 CURS0R3) 0 :PRINT"LE0NI INF0RI1RTICR n 
ILRNO" :GOSUB1560 

30 CURS0R4>3 :PR I NT "Spiegazione compit 
o a casa. " 

40 CURSOR0, 5 :PRINT "Nella lezione prec 
edente, ti e’ stato" 

50 CURSOR0)6 :PRINT "richiesto di svolg 
ere un programma," 

60 CURSOR0,7 :PRINT "che calcolasse la 
med l a di battute" 

70 CURSOR0,8 :PRINT "di un giocatore di 
basebai l . " 

80 CURSOR0,10 :PRINT "Ci sono diversi m 
odi di svolgere tale" 

30 CURSOR0, 11 :PRINT "esercizio. Noi ne 
esamineremo uno . " 

100 CURSOR0,13:PRINT "10 CLS:PRINT " ;Z 

$;"0Rnni il NonE del giocatore" ;z$ 

110 CURSOR0, 15-.PRINT "20 INPUT N0$ 

120 CURSOR0,16:PRINT "30 PRINT ";Z$;"D 
Rnm I COLPI" ; 2 $ 5 " : INPUT CO" 

130 CURSOR0,17:PRINT "40 PRINT ";2$;"D 
Rfini LE BRTTUTE" ;Z$5" : INPUT BR" 

140 CURSOR0,18:PRINT "50 NE=C1000*CD/B 
R" 

150 CURSOR0,13:PRINT "60 PRINT ";2$;"G 
IOCRTQRE " ;2$ ; " ;NO$ ; " ;2$ ; "NED IR ";2$;" 
;nE" 

160 CURSOR0,20:PRINT "60 PRINT " ;2$;"N 
UhlERO COLPI" ;2$; " ;C " 

170 CURSOR0,21:PRINT "60 PRINT " ;2$;"N 
UhlERO BRTTUTE" ;2$ 5" ;BR" 

180 X$=INKEY$ 

130 IFX$=""THEN180 

200 CLS :CURSOR0,0:PRINT "Uediamo ora l 
e cose nuove i ntrodotte" :CURSOR0,1:PRI 
NT "dal listato del programma." 

210 CURSOR0,3 :PRINT "L’istruzione CLS 
permette di pulire lo" 

220 CURSOR0,4 :PRINT "schermo, da tutto 
quanto era scritto," 

221 CURSOR0, 5 SPRINT "cosi’ da poter vi 
sua l I zzare le Iras i " 

222 CURSOR0,6 :PRINT "senza andarle a s 
crivare su aItre " :CURSOR0, 7 :PRINT "già 
’ presenti." 

223 CURSOR0,3 : PRINT "COSI’:" 

224 X$=INKET$ 

225 IFX$=""THEN224 

226 CLS:FORI=1TO200:NEXT 

227 CURSOR0,0=PRINT "Uediamo ora le co 
se nuove introdo11e " :CURSOR0,1:PRINT " 
dal listato del programma." 

240 CURSOR0, 7 :PRINT "Rvrai notato, che 
aleune":CÙRSOR0,8 :PRINT "istruzioni s 
ono sulla stessa linea:" 

250 CURSOR0,10:PRINT "10 CLS:PRINT ";2 

$;"DRnm il none del giocatore";z* 

260 CURSOR0,11:PRINT "30 PRINT ";2$;"D 
Rnm I COLPI" ;2$ ;": INPUT CO" 

270 CURSOR0,12:PRINT "40 PRINT ";Z$5"D 
RMni LE BATTUTE"!?$;":INPUT BR" 

280 X$=INKEY$ 

230 IFX$=""THEN280 


300 CURSOR0, 14'.PRINT "Ciò’ e’ sempre p 
ossibile da lare, " :CURSOR0,15 :PRI 

NT "purché’ le diverse istruzioni veng 
ano " :CURSOR0,16:PRINT "separate dal du 
e punti C : D, " 

310 CURSOR0,17:PRINT "e purché’ la lun 
ghezza totale de l la " :CURSOR0,18:PRINT 
"istruzione, non superi 256 caratteri. 

320 X$=INKEY$ 

330 IFX$=""THEN320 

340 CO=0:RI=7:«K=220 :GOSUB1530 

350 CURSOR0,7 :PRINT "La stampa del nom 

e del giocatore sulla" 

360 CURSOR0,8 :PRINT "stessa linea dell 
a media delle battute" 

370 CURSOR0,3:PRINT "e’ latta grazie a 
l punto e virgola C j 3 " 

380 CURSOR0,10:PRINT "posto dopo la va 
ri ab ile che indica " 

330 CURSOR0,11:PRINT "il nome del gioc 
atore. " 

400 CURSOR0,13 =PRINT "60 PRINT ";Z$;"G 
IOCRTORE ” ;2$ ; " ;NO$ ; " ;2$;"HEDIA ";Z$;" 
;ME" 

410 X$=INKEY$ 

415 IFX$= "" THEN410 

420 CO=0 :RI=7:KK=220 :GOSUB1530 

430 CURSOR0, 7 :PRINT "Il calcolo della 

media e’ eseguito" 

440 CURSOR0,8-‘PRINT "mediante l’assegn 
azione del risultato" 

450 CURSOR0,3:PRINT "dell’espressione 
di calcolo consiglia-" 

460 CURSOR0,10:PRINT "ta nella lezione 
precedente, " 

470 CURSOR0,11:PRINT "alla variabile n 
E 

480 CURSOR0, 14 :PRINT "50 !1E = C 1000XC3/B 
R" 

430 CURSOR0,17:PRINT "che lo ha memori 
zzato sino al momen-" 

500 CURSOR0, 18 :PRINT "to di andare 
stampa. “ 

510 X$=INKEY$ 

520 IFX$= "" THEN510 

540 CLS :CURSOR0,0 : PRINT "Istruzione di 
posizionamento CURSOR" :PRINT " 

550 CURSOR0,3 .'PRINT "Quando vengono es 
eguite le istruzioni" 

550 CURSOR0,4:PRINT "di PRINT, le Iras 
i vengono visual izza-":CURSOR0,5 :PRINT 
"te su righe successive, a jpeno che" 
570 CURSOR0,6:PRINT "non ci siano punt 
i e virgo la.":CURSOR0,8 :PRINT "E’ poss 
i bl le, pero’, posizionare " 

580 CURSOR0,3:PRINT "la Irase da scriv 
ere esattamente su" 

530 CURS0R5, 1 1:PRINT "una RIGR e ad un 
a COLONNA " :CURSOR0,13:PRINT "preceden 
temente definite, tramite" 

600 CURS0R5,14:PRINT "l’istruzione CUR 
SOR. " :£URSOR0,16:PRINT "Sintassi dell’ 
istruzione" 


610 CO=0:RI=17:GOSUB1650:RI=18:G0SUB16 
70:CURSOR0, 13:PRINT " n. linea CURSORX, 
Y:PRINT output l i st " ; TRBC363 ; " " 

620 CURSOR0 ,20:PRI NT " con X=Co lo 

nna Y= Riga" ;TRBC36] ; " " 

630 RI=21 :GOSUB1670 :RI=22:GOSUB1660 
750 X$=INKEY$ 

760 IFX$=""THEN750 

770 CLS :CURSOR0,0:PRINT "Esempi di uti 
l izzo de l CURSOR" 

780 CURSOR0,3 :PRINT "10 CURSOR10,3 :PRI 
NT " ;Z$ ; "CIRO";Z$ 

730 CURSOR0,5 :PRINT "dara’ CIRO sulla 
3 RIGR dello schermo" 

800 CURSOR0,6 :PRINT " alla 1 

0 COLONNR" 

820 CURSOR10,3:PRINT "CIRO" 

821 X$=INKEY $ 

822 IFX$=" "THEN821 

825 RI=3 :KK=200 :GOSUB1530 
830 CURSOR0,3 :PRINT "60 CURSORI 1,12 :PR 
INT " ;Z$ ; " IO SONO IL TUO SC-3000";Z$ 
832 CURSOR0,5:PRINT "70 CURS0R5,12:PRI 
NT " ;Z$;"CIAO" ;Z$ 

840 CURSOR0,8:PRINT "dara’ l messaggi 
" :CURSOR10,3:PRINT " sulla RIGR 12 del 
lo schermo" 

850 CURSOR10,10:PRINT " alle COLONNE 
5 e 11":CURS0R5,12 :PRINT "CIRO I 

0 SONO IL TUO SC-3000" 

870 X$=INKEY$ 

880 IFX$=""THEN870 


1510 CLS :CURSOR0,5 -‘PRINT "UUOI RIUEDER 
E LR LEZIONE 8" 

1520 CURSOR10, 7 :PRINT "NO" :CURSOR8, 7 :1 
NPUT R$ : IFA$="S . "THEN10 
1530 IFA$="NO" THEN 1550 


1540 GOTO1510 
1550 GOTO 1600 

1560 CURSOR0,1:FOR I = 1T038:PRINT "#" 5 : 
NEXTI :R€TURN 

1570 FOR I = 1TO700 :NEXT :RETURN 

1580 FOR I = 1T038 :PRINT ; :NEXT :RETUR 

N 

1530 CURSOR0,RI:F0RI=1T0KK:PRINT" 

NEXT :RETURN 

1600 CLS :Z$=CHR$C343 : CURS0R3,4:PRINT 
"FINE LEZIONE 8" 

1610 CURS0R3,7 :PRINT "PER INSERIRE LR 
LEZIONE SEGUENTE" 

1620 CURS0R3,9 :PRINT "DIGITRRE L’ISTRU 
ZIONE : " 

1630 CURS0R3,11:PRINT "LORD" ;Z$ ; "LEZIO 


NE 9" ;z$ 


1640 CURS0R3,20:PRINT:END 
1650 CURSORCO.RI :PRINT " 
:PRINT " " ; :NEXT:PRINT ” 
18<0 CURSORCO.RI:PRINT " 
:PRINT " ” ; :NEXT:PRINT " 
1670 CURSOR0,RI:PRINT " " 
RETURN 

1680 CURSORCO.RI:PRINT " 
:PRINT " " ; :NEXT:PRINT " 


";:F0RI=1T035 
" :RETURN 
" ; :F0RI=1T035 
" :RETURN 
5TRBC36D5" ": 

";:FORI=1T035 
" :RETURN 
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10 CLS:2*=CHR*C343 

20 CURS0R3,0 :PRI NT"LEONI INFORMATICA M 
I LANO" :GOSUB1280 

30 CURS0R9,3 SPRINT "Istruzione IF - TH 
EN" 

40 CURSOR0,5 SPRINT "L’istruzione IF-TH 
EN s i usjj per 

50 CURSOR0 ,6:PRINT "spostarsi CONDIZIO 
NATAMENTE i dal": CURSOR0, 7 :PRINT "norma 
le ordine consecutivo dei numeri" 

60 CURSOR0, 8:PRINT "delle istruzioni." 

70 CURSOR0,10:PRINT "La CONO 12 1ONALITA 
’ e’ data dalla" 

80 CURSOR0,11:PRINT "GERITA’ o FALSITÀ 
’ della proposizione" 

90 CURSOR0,12:PRINT "che compone l»IF. 

100 CURSOR0)13:PRINT "Sintassi dell» i s 
truzione." 

110 CO=0 :RI = 1 5 :GOSUB1370 :RI = 16 :G0SIJB13 
90:CURSOR0, 17:PRINT " n. linea IF con 
diz. THEN n. Ii nea";TABC363 " 

120 RI = 18 : GOSLJB 1390 

130 CURSOR0, 19:PRINT " ES. 20 IF 6=1 
0 THEN 1000”; TABI 36) " 

140 RIs=20 : GOSUB 1390 :RI=21 :GOSUB1380 
160 GOSUB20000 

170 CLS :CURSOR0,0 :PRINT "La proposizio 
ne di CONDIZIONE si forma" :CURSOR0)1 :P 
RINT "separando due espressioni" 

180 CURSOR0j 3 :PR V INT " NUMERICHE o STRI 
NGHE " 

190 CURSOR0,5:PRINT "con i simboli rei 
azionali :" 

200 CURSOR0,8:PRINT " = UGUALE a 

CA*=FF*) 

210 CURSOR0,10:PRINT " > MAGGIOR 

E di C I>10 1” :CURSOR0,12 :PRINT " < 

MINORE di C KK<A*B 1" :CURSOR0, 
14 :PRINT " <> DIUERSO da C CC$< 

> 6 $ ]" 

220 CURSOR0,16:PRINT " => MAGG. o 

UGUALE C- A=> 100 3" 

230 CURSOR0,18 :PRINT " <= MIN. o 

UGUALE C A<=100 3" 

250 GOSUB20000 

260 CLS :CURSOR0,0 :PRINT "ESEMPI di ut I 
lizzo del!’ IF-THEN":PRINT " 

270 CURSOR0,3 SPRINT "10 IF A=10 THEN 1 

00 " 

280 CURSOR0,4 :PRINT "20 CLS .'CURSORI0, 1 
8:PRINT ";ZS;" A e’ uguale a:";2$;";A" 

290 CURSOR0,6 :PRINT "40 END" :CURSOR0,7 
:PRINT "100 CLS:CURS0R21,21:PRINT " ;Z* 
;"A e’ uguale a 10";2*;"s END" 

300 CURSOR0)9:PRINT "La linea 10 opere 
ra’ in questo modo 

310 CURSOR0,11 :PRINT "se la variabile 
A non e’ uguale a 10" :CURSOR0,12:PRINT 
"l’elaborazione proseguirà’ dalla" 

320 CURSOR0,13 :PRINT "linea n.20. Se i 
n vece A=10 allora i l" :CURSOR0,14:PRINT 


"flusso si sposterà’ alla linea n.100 


330 CURSOR0,16:PRINT "Poniamo A=20, e 
facciamo girare il ":CURSOR0,17:PRINT 
"programma." 

350 GOSUB20000 

360 CLS :CURSOR10,10:PRINT "A e’ uguale 
a 20" 

362 GOSUB20000 

365 FORI=lTO 250:NEXT 

370 CLS :CURSOR0,0:PRINT "ESEMPI di uti 
lizzo dell’ IF-THEN":PRINT " 

380 CURSOR0,3:PRINT "10 IF A=10 THEN 1 
00 " 

390 CURSOR0,4 :PRINT "20 CLS:CURSOR10,1 
0-‘PRINT A e’ uguale a:";2$;";A" 

400 CURSOR0,6 :PRINT "40 END":CURSOR0,7 
:PRINT "100 CLS:CURS0R21,21:PRINT ";Z$ 
5 "A e’ uguale a 10";2$;"s END" 

420 CURSOR0,13:PRINT "Poniamo A=10, e 
facciamolo girare" :CURSOR0,14 :PRINT "d 
i nuovo." 

440 GOSUB 20000 

450 CLS:CURS0R21,21:PRINT "A e’ uguale 
a 10" 

452 GOSUB 20000 

453 FORI=1TO250:NEXT 

490 CLS :CURS0R9,0:PRINT "ESEMPI seg 
ue " :PRINT " 


500 CURSOR0,3:PRINT 
510 CURSOR0,4:PRINT 
THEN 100" 

520 CURSOR0,5 : PRINT 
200 " 

530 CURSOR0,6 :PRINT 
EN 20" 

540 CURSOR0,7:PRINT 
R" 

550 CURSOR0,9 SPRINT 
560 CURSOR0,10:PRINT 
0 = KK THEN 100" 

570 CURSOR0, 11 :PRINT 
EN 200" 

580 CURSOR0,12 :PRINT 
$;"1" THEN 20" 

590 CURSOR0, 13.-PRINT 


"ERRATI" 

"10 IF AXCA/123/30 

"25 IF A*OC THEN 

"30 IF A$+B*<>1 TH 

"10 IF C+I=l THEN 

"CORRETTI" 

"10 IF A*CAzl23'3 

"25 IF A* OC* TH 

'30 IF A*+B*0" ;Z 

’10 IF C+I=l THEN 


23" 

591 CURSOR0,14 SPRINT "10 IF X$=";Z*;Z$ 
THEN 5" 

592 CURSOR0,15:PRINT "110 IF MP*20 <> 
CXMP THEN INPUT MP" 

593 CURSOR0,16 SPRINT "100 IF R*0";Z*; 
"SI" ;Z$ ;"THEN PRINT ";Z$;"DAMMI IL UAL 
ORE NUOUO";2*INPUT XX*" 

594 CURSOR0,18:PRINT "70 IF A*=B$+EF* 

THEN PRINT A$;";Z*;"E’ ESATTO?" ;2$ : 

INPUT R$" 

610 GOSUB 20000 

640 CLS :CURS0R9,0 : PRINT "Istruzione G 
OTO” : PRINT " 


650 CURSOR0,3 :PRINT "L’istruzione GOTO 
si usa per sa Itare" 

660 CURSOR0,4:PRINT "alcune linee del 
programma, anziché’" 

670 CURSOR0,5 :PI^ INT "seguire il normal 
e ordine sequenziale" 

680 CURSOR0,6 :PRINT "delle linee che l 
o compongono" 

090 CURSOR0,8:PRINT "E’ possibile salt 
are sia AUANTI che" 

700 CURSOR0,9 :PRINT "INDIETRO nel P rog 
ramma." :CURSOR0,11:PRI NT "Sintassi del 
l’istruzione” 

701 CO=0 :RI = 13 : GOSUB1370 : RI = 14 :GOSUB13 


90:CURSOR0,15 :PRINT " n. linea GOTO n 
.linea di arr ivo" ;TABC363 5" " 

702 RI = 16 :G0SUB1390 

703 CURSOR0,17:PRINT " ES. 15 GOTO 1 
500"JTABC36);" " 

704 RI = 18 : GOSUB1390:RI = 19:GOSUB1380 
740 GOSUB 20000 

750 CLS :CURSOR0,0 :PRINT "ESEMPI di uti 
lizzo del GOTO" :PRINT " 

760 CURSOR0,3 :PRINT "10.CLS: INPUT";2* ; 
"DAMMI L’ETÀ’ IN ANN I" ;Z$;";A" 

765 CURSOR0,4 :PRINT "15 IF A<0 THEN 10 

770 CURSOR0,5:PRINT "20 G=365*A :PRINT 
"; "UUOI ANCHE I MESI CSI/NO)" ;2$:CU 
RSOR0,7 :PRINT "30 INPUT Al$ " 

780 CURSOR0,8:PRINT "40 IF A1$=";2*;"S 
I" ;Z$;"THEN 100" 

790 CURSOR0,9 SPRINT "50 IF A1*=";Z*;"N 
0" ;2* ; "THEN 150" 

791 CURSOR0,10SPRINT "60 GOTO 20" 

793 CURSOR0, 11 SPRINT "100 PRINT 

ETÀ’ IN GIORNI = ";Z$ ;GSPRINT ";Z*;"ET 
A’IN ANNI=";2*;G/12" 

794 CURSOR0,13 SPRINT "110 GOTO 200" 

795 CURSOR0,14 SPRINT "150 PRINT " ;Z$;" 
ETÀ’ IN GIORNI-";Z*;";G" 

796 CURSOR0, 15 SPRINT "200 END"sGOSUB 2 
0000 

805 CURSOR0,17 :PRI NT "Uediamo cosa fa 
Ciascuna istruzione": GOSUB20000 SFORI = 1 
TO200SNEXT 

820 CURSOR0,17 SPRINT "10 memorizza II 
valore dell’ età’ In A" 

825 CURSOR0,18 SPRINT "20 calcola l’età 

’ in giorni e la " 

826 CURSOR0,19:PRINT "memorizza in G; 
chiede se si desidera" 

827 CURSOR0,20 SPRINT "avere anche l’et 
a’ in mesi." 

828 CURSOR0,21 SPRINT "Memorizza la ris 
posta in Al*"sGOSUB 20000:CO=0:RI=17:K 
K=50sGOSUB 1310 

829 CURSOR0,17 SPRINT "40 e 50 controll 
ano A1 $ s se non e’ ne’" 

830 CURSOR0,18 SPRINT "NO ne’ SI, attra 
verso la linea 60 " 

831 CURSOR0,19SPRINT "Il programma tor 
na indietro a chiedere" 

832 CURSOR0,20 SPRINT "di nuovo Al*." 

833 GOSUB 20000 :CO=0:RI = 17:KK=50sGOSUB 
1310 

834 CURSOR0,17SPRINT "Se Al* = SI l’el 
aborazione del prò-" 

835 CURSOR0,18 SPRINT "gramma si sposta 
alla li nea 100" 

836 CURSOR0,19 SPRINT "che scrive l’età 
’ in giorni e In mesi." 

837 CURSOR0,20 SPRINT "Il GOTO 200 dell 
a linea successiva" 

838 CURSOR0,21 SPRINT "permette di salt 
are l’istruzione 150" 

839 CURSOR0,22 SPRINT "e passare all’EN 
D del programma" 

840 GOSUB 20000 :CO=0:RI = 17:KK=80sGOSUB 
1310 

841 CURSOR0,17SPRINT "Se Al* = NO l’el 
aborazione del prò-" 

842 CURSOR0,18sPRINT "gramma si sposta 
alla linea 150" 

843 CURSOR0, 19 :PRINT "che scrive solo 
l’età’ in giorni." 

844 CURSOR0,20 :PRI NT "Subito dopo vien 
e eseguita l» istru—" 

845 CURSOR0,21 :PRINT "ziore di END che 
termina II flusso. “ 

846 GOSUB 20000 
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1230 CLS :CURSOR0,5 SPRINT "UUOI RIUEDER 
E IL progruha" 

1240 CURSOR10)2 SPRINT "NO":CURS0R8, 7 :1 
NPUT OS : IFOS = "SI"THEN10 
1250 IFBS="NO" THEN 1270 
1260 GOTO1230 
1270 GOTO 1320 

1280 CURSOR0,1 :FOR I = 1T038:PRINT "4";: 
NEXTI sRETURN 

1290 FÒR 1=1TO700 sNEXTsRETURN 

1300 FOR I = 1 T038 :PRINT ; sNEXT :RETL1R 

N 

1310 CURSORC0,RI:F0RKK=1T087 :PRINT" " 
; :NEXT :RETURN V 

1320 CLS:2$=CHR$C343= CURS0R3,4:PRINT 
"FINE LE2IONE 9" 

1330 CURS0R3, 7 :PRINT "PER INSERIRE LO 
LEZIONE SEGUENTE" 

1340 CURS0R3)9 :PRINT "DICITORE L’ISTRU 
2 IONE : " 

1350 CURS0R3,11:PRINT "LOBO" ;2$ ; "LE2 IO 
NE 10" ;2$ 

1360 CURS0R3,20 SPRINT :END 
1370 CURSORCO,RI:PRINT " ";:FORI=1T035 
:PRINT " " ; :NEXT :PRINT " " :RETURN 
1380 CURSORCO,RI SPRINT " ";:FORI=1T035 
:PRINT ” " ; :NEXT :PRINT " ":RETURN 
1390 CURSOR0,RI SPRINT " "5TOBC363;" " : 
RETURN 

1400 CURSORCO,RI SPRINT " " ; :FORI=1T035 
SPRINT " "; :NEXT :PRINT " ":RETURN 
2000? X$=INKET$ 

20010 IFXS=" " THEN20000 
20020 RETURN 




10 CLS:2S=CHRSC343 

20 CURS0R3,0 SPRINT"LEONI INF0RI10TIC0 II 
ILONO" :GOSUB1280 

30 CURS0R9,3 SPRINT "Istruzione REOD-DO 
TO" 

40 CURSOR0, 5 :PRI NT “Obbiamo visto fino 
ra, due metodi di" 

50 CURSOR0,6 SPRINT "Introdurre dati ne 
l computer, mediante"SCURSOR0,7 SPRINT 
"le Istruzioni INPUT e LET. " 

60 CURSOR0,9 SPRINT "Esiste un altro mo 
do di dare un valore" 

70 CURSOR0,10:PRINT "alle variabili: l 
'Istruzione REOD-DOTO" 

80 CURSOR0,11:PRINT "Il valore che pre 
nderanno le variabili" 

90 CURSOR0,12:PRINT "definite nelle Is 
t ruz l on l di REOD" 

92 CURSOR0,13 SPRINT "sara’ stato In pr 
ecedenza memorizzato" 

94 CURSOR0,14:PRINT "nelle istruzioni 
di DOTO." 

100 CURSOR0, 16:PRINT "Sintassi dell’ls 
truzione." 

110 CO=0:RI = 17:GOSUB1370:RI = 18 :GOSUB13 
90 :CURSOR0,19:PRINT " n. linea REOD v 
arlab 1 li" JTOBC363 ;" " 

120 RI=20 :GOSUB1390 

130 CURSOR0,21 SPRINT " n. linea DOTO 
costante, cost., etc"JTOBC363;" " 

140 R I=22 : GOSUB 1380 
160 GOSUB20000 

170 CLS:CURSOR0,0:PRINT "ESEI1PI di REO 
D-DOTO" :CURSOR0,1:PRINT " 

180 CURSOR0,3:PRINT "10 CLS:REOD OS,B" 


190 CURSOR0,4:PRINT “20 CURS0R5,5 sPRIN 
T 0$,B" 

200 CURSOR0,5:PRINT "30 REOD OS,B" 

210 CURSOR0,6:PRINT "40 CURS0R5,9 :PRIN 
T BS,B" 

220 CURSOR0,7:PRINT "50 DOTO ";2$;"R0T 
0 N.l = " ;2$;",20000" 

230 CURSOR0,8:PRINT "60 DOTO ";2$;"R0T 
0 N.2 = " ;2$5",30000" 

250 GOSUB20000 

251 CURSOR0,10:PRINT "Uediamo ora cosa 


succede quando" 

252 CURSOR0,11:PRINT "Il programma fun 
ziona." :GOSUB20000 

253 CLS : CURS0R5,5 :PRI NT "ROTO N.l =20 
000 " 

254 CURS0R5,9:PRINT "ROTO N.2 = 30000" 
:GOSUB20000:FORI=1TO100:NEXT 

260 CLS :CURSOR0,0 :PRINT "Uarlablll 11UL 
TIDinENSIONOLI":PRINT " 


270 CURSOR0,3:PRINT "Sono chiamate cos 
I ’ que l le varlabi II" 

280 CURSOR0,4 :PRINT "che utilizzano de 
gli Indici." 

290 CURSOR0,5:PRINT "Uengono riportate 
In variabili a" :CURSOR0,6:PRINT "Indi 
ce le LISTE, le TOUOLE di numeri," 

300 CURSOR0,7:PRINT "etc. Esempi di v 
ar 1 ab I LI a indice:" 

310 CURSOR0,9 :PRINT "OC93 NSCX.Y3 RI 
C21,33 CSC43" :CURSOR0,11 SPRINT "Il no 


me delle variabili a Indice e’ lo" 

320 CURSOR0,12:PRINT "stesso di qualsl 
asl variabile noFma l e, " :CURSOR0,13:PRI 
NT "solo che e’ seguito da una parente 
s l " 

330 CURSOR0,14:PRINT "contenente tanti 
elementi separati da" 

331 CURSOR0,15:PRINT "virgole, quante 
sono le dimensioni" 

332 CURSOR0,16 :PRINT "della variabile. 

II 

333 CURSOR0,18:PRINT "Negli esempi sop 
ra abbiamo 2 variabili" 

334 CURSOR0, 19:PRINT "IIONODinENSIONOL I 
0C93 CSC43" 

335 CURSOR0,21 :PRINT "e due variabili" 

336 CURSOR0,22 SPRINT "BIDIMENSIONOLI 
n$CX,T3 R1C21.33":GOSUB20000 

370 CLS :CURSOR0,0 :PRINT "Oncora varlab 

III flULT IDINENSIONOLI " SPRINT " 


380 CURSOR0,3 SPRINT "Non cl sono llmlt 
I alle dimensioni di" 

390 CURSOR0,4 SPRINT "variabile NULTIDI 
NENSIONOLE, se non " 

400 CURSOR0,5 SPRINT "quelli fisici di 
capacita’ della " :CURSOR0,6 SPRINT "mem 
orla." 

420 CURSOR0,7 SPRINT "Consideriamo la v 
ar 1 ab l le OSC103." 

421 CURSOR0,8 SPRINT "E’ Implicito che 
ottre questa cl sara’":CURSOR0,9 SPRINT 

"anche un RSC13, un OSC23, etc." 

422 CURSOR0,11 :PRINT "Tenuto conto che 
il computer r 1 serva"SCURSOR0,12 SPRINT 
"uno spazio di 256 BIT per ogni varia 

423 CURSOR0,13:PRINT "bile stringa, al 
lore, la sola lista dl" :CURSOR0,14:PRI 
NT "0SCn3 occuperà’ uno spazio in memo 
ria" 

424 CURSOR0,15SPRINT "di oltre 2500 BI 
T, sempre che la llsta" :CURSOR0,16:PRI 
NT "sla limitata a 10 elementi?" 

425 CURSOR0,18:PRINT "Si rende cosi’ n 
ecessario definire in" : CURSOR0,19 :PRIN 
T "anticipo quanto spazio il Computer" 


426 CURSOR0 , 20:PRINT "dovrà’ riservare 
alle variabili a plu’" :CURSOR0,21 :PRI 
NT “dimensioni. 

440 GOSUB 20000 

490 CLS :CURSOR9,0 SPRINT "Istruzione DI 
n"SPRINT " 

500 CURSOR0, 3 SPRINT "Il dlmenslonament 
0 delle vari ab Il 1 " 

510 CURSOR0, 4 SPRINT "T1ULT IDINENSIONOL I 
, avvlene tramite" 

520 CURSOR0,5 SPRINT "le Istruzioni di 
DIN. " 

530 CURSOR0 , 7 :PR I NT "Sintassi de-ll’ist 
ruzlone ed esempi." 

541 CO=0 :RI=9 : GOSUB 1370 : R I = 10:G0SUB139 
0SCURSOR0, 11 SPRINT " n. linea DIN var 
. CN3 , var CN3 , et c . " ; TOBC 36 3 ; " " 

550 RI = 12 : GOSUB1390 

560 CURSOR0, 13 SPRINT " dove Ne’ Il n 
ulcero massimo d l" ;TOBC36 3 j " " 

570 CURSOR0, 14 SPRINT " elementi della 
var l ab 1 l e " ; TOBC363 ; " " 

580 R I = 15 sGOSUB1390 

590 CURSOR0,16SPRINT " ES. 10 DIN OSCI 
00,23,OC 103,01SC403, " ;TOBC36 3 5" " 

591 CURSOR0,17SPRINT " C1C1 

0,103,2C103"JTOBC363 5" " 
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593 RI = 18 :G0SUB1390 

594 CURSOR0,19 :PRINT " ES. 35 Din A1C8 
],BC193,CC191,R$C40D" ; TABI 363J" " 

595 RI=20 : GOSUB1390 

600 RI=21 :GOSUB1380 
610 GOSUB 20000 

640 CLS :CURSOR9,0SPRINT "Istruzione R 
EH ":PRINT " 

II 

650 CURSOR0,3 SPRINT "L’istruzione RED 
si usa per Inserire" 

660 CURSOR0,4 :PRI NT "dei commenti ne 1 
list del programma." 

620 CURSOR0,6 SPRINT "Le istruzioni di 
REM non tengono " 

680 CURSOR0,7 SPRINT "Interpretate dal 
Computer , qu i nd l " 

690 CURSOR0,8 SPRINT "possono contenere 
qualsiasi cosa," 

700 CURSOR0,9 SPRINT "e non fanno incor 
rere nel SINTAX ERROR" :CURSOR0,11:PRIN 
T "Sintassi e uso." 

701 CO=0 :RI = 13:GOSUB1370:RI=14:GOSUB13 
90 : CURSOR0,15 :PRI NT " n. linea REM comm 
ento C256 car. maxi" ;TABC363 ; " " 

702 RI = 16 :GOSUB1390 

703 CURSOR0, 17:PRINT " ES. 15 REfl CA 
LCOLO DELLA dEDIA"JTABC363;" " 

704 CURSOR0,18:PRINT " 30 RED SC 

RITTURA SU STAHPANTE"5TABC361 ;" " 

705 RI = 19 : GOSUB1390 :RI=20 :GOSUB1380 
740 GOSUB 20000 

750 CLS:CURSOR0,0:PRINT "CICLI di Istr 
uzloni" SPRINT " 

II 

751 GOSUB 2000 

752 CLS :CURSOR0,0 :PRINT "CICLI d-i Istr 
uzloni segue":PRINT " 

753 CURSOR0,3 :PRINT "10 1 = 1 :S=0" 

760 CURSOR0,4 SPRINT "20 CLS:PRINT";Z$ ; 
"□Anni IL UALORE n." ; I : INPUT N" 

765 CURSOR0,6 :PRINT "30 S=S+N" 

771 CURSOR0,7 :PRINT "40 1 = 1 + 1 : IFI<= 10 
THEN 20 " 

780 CURSOR0,8 :PRINT "50 dE=S/10" 

790 CURSOR0,9 :PRINT "60 CLS: CURSOR10, 
5: PRINT " ;Z$ ; "LA dEDIA DEI 10 NUdERI 
E>" ;z$;" ;dE" 

793 CURSOR0,11 SPRINT "70 END" 

805 CURSOR0,15 :PRINT "Uedlamo cosa fa 
ciascuna Istruzione":GOSUB20000:FORI=1 
TO100sNEXT 

820 CURSOR0,15:PRINT "10 Iniziai izza i 
l valore delle due " 

825 CURSOR0, 16:PRINT "variabili I ed S 
, che memorizzeranno " 

826 CURSOR0,17:PRINT "rispettivamente, 
Il numero dei termini" 

827 CURSOR0,18:PRINT "numerici già’ pr 
esl con l ’INPUT, e la" 

828 CURSOR0,19:PRINT "somma progress Iv 
adì tali valori.":GOSUB 20000:CO=0 :RI 
=15:KK=50:GOSUB 1310 

829 CURSOR0,15:PRINT "20 memorizza II 
valore dei termini" 

830 CURSOR0,16:PRINT "numerici in N." 

831 CURSOR0,17 :PRINT "30 fa la somma p 
rogressiva di tali" 

832 CURSOR0,18:PRINT "termini; essa fa 
ra’ contenere nella S," 

833 CURSOR0,19 SPRINT "alla fine del CI 
CLO, la sommatoria" 

834 CURSOR0,20 :PRINT "di tutti I valor 
I inseriti." 

835 GOSUB 20000:CO=0:RI = 15:KK=99 : GOSUB 
1310 


836 CURSOR0,13:PRINT "40 e’ l’istruzio 
ne che Incrementa II" 

837 CURSOR0,14:PRINT "contatore I fino 
al valore 10 come si" 

838 CURSOR0,15:PRINT "era stabilito eh 
e fosse." 

839 CURSOR0,16:PRINT "Il controllo e’ 
fatto da l l ’IF : se la" 

840 CURSOR0,17:PRINT "condizione I<=10 
non e’ verificata," 

841 CURSOR0,18:PRINT "l’esecuzione rl P 
assa alla linea 20." 

842 CURSOR0,19:PRINT "Contemporaneamen 
te I si incrementa di" 

843 CURSOR0,20 :PRINT "1, per Indicare 
che un altRo INPUT e’" 

844 CURSOR0,21 :PRINT "stato eseguito." 

846 GOSUB 20000 :CO=0:RI = 13:«K=170:GOSU 
B 1310 

850 CURSOR0,15 SPRINT "50 Calcola la me 
dia del 10 numerI" 

860 CURSOR0,16 :PRI NT "inseriti, la cui 
sommatoria e’ data" 

865 CURSOR0,17:PRINT "dalla variabile 
S, e la pone ne l la" 

866 CURSOR0,18 :PRINT "variabile dE." 

867 GOSUB 20000:CO=0 :RI = 15:KK=90:GOSUB 
1310 

870 CURSOR0,15:PRINT "60 Scrive II ris 
ultato del programma." 

880 GOSUB 20000:CO=0 : RI = 15:KK=70:GOSUB 
1310 

1230 CLS : CURSOR0,5 : PRI NT "UUOI RIUEDER 
E IL PROGRddA" 

1240 CURSOR10,7:PRINT "NO":CURSOR8,7 :1 
NPUT A* : IFA$="SI"THEN10 
1250 IFA$="NO" THEN 1270 
1260 GOTO1230 
1270 GOTO 1320 

1280 CURSOR0, 1 :FOR I = 1T038 :PRINT : 

NEXTI :RETURN 

1290 FOR I = 1TO700 :NEXT :RETURN 

1300 FOR 1 = 1T038 :PRINT ; :NEXT:RETUR 

N 

1310 CURSORC0,RI :FORI = lTOKK:PRINT" 
:NEXT :RETURN 

1320 CLS :Z$=CHR$C341 : CURS0R3,4 :PRINT 
“FINE LEZIONE 10" 

1330 CURS0R3,7 :PRINT "PER INSERIRE LA 
LEZIONE SEGUENTE" 

1340 CURS0R3,9 :PRINT "DIGITARE L’ISTRU 
ZIONE : " 

1350 CURS0R3,11:PRINT "LOAD" ;Z$ ; "LEZIO 
NE 11";Z$ 

1360 CURS0R3,20:PRINT:END 
1370 CURSORCO,RI SPRINT " ";:FORI = 1T035 
: PRINT " " ; :NEXT :PRINT " " :RETURN 
1380 CURSORCO.RI :PRINT " " ;:FORI = 1T035 
:PRINT " "; :NEXTSPRINT " "sRETURN 
1390 CURSOR0,RI SPRINT " ";TABC361;" ": 
RETURN 

1400 CURSORCO.RI SPRINT " "; :FORI = 1T035 
SPRINT " sNEXTSPRINT " " sRETURN 
2000 .CURSOR0,3 SPRINT "Una delle capaci 
ta’ piu’ importanti di" 

2010 CURSOR0,4 SPRINT "un Computer, e’ 
que Ila di eseguire" 

2020 CURSOR0,5 SPRINT "una serie di ist 
ruzloni ripetitive, " :CURSOR0,6 SPRINT 
"in un tempo velocissimo, su dati anch 
e" 

2030 CURSOR0,7 SPRINT "molto complessi. 
"SCURSOR0,9 SPRINT "Il LOOP o CICLO e’ 
una di tali opera-" 

2040 CURSOR0,10SPRINT "zioni, che i l lu 
streremo ora. " :CURSOR0,12 SPRINT "Prend 


eremo come esempio un programma" 

2050 CURSOR0,13SPRINT "che calcola la 
media di 10 numeri" :CURSOR0, 14 SPRINT 
introdotti di volta in volta dalia" 

7060 CURSOR0,15 SPRINT "tast iera."sGOSU 
B20000sRETURN j 

20000 X$=INKEY$ 

20010 IFX$=""THEN20000 
20015 FOR1 = 1TO150 sNEXT 
70020 RETURN 

50000 CURSOR0,5 SPRINT "20 G=355*A :PRI 
NT" ;Z$ ; "UUOI ANCHE I dESI CSI^NOl";Z$s^ 
CURSOR0,7 :PRINT "30 INPUT Al$ " 
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CHAR- CONSTRUCTOR 


Chissà quante volte sarà capitato di mettervi a 
tavolino «armati di carta e penna» per 
inventare nuovi caratteri da inserire nei 
programmi!!! 

Ora non sarà più una fatica. 

L’utility proposta vi aiuterà infatti a costruire 
alieni, omini, ridefinire caratteri alfabetici e tutto 
quello che si può e si vuole disegnare in una 
matrice di 6x8 pixels. 

Tre sono le opzioni a vostra disposizione; la 
prima permette di vedere ingranditi e/o no i 
caratteri memorizzati nell’ORIC ed 
eventualmente modificarli, sostituirli o ' 
'scambiarli tra loro (vengono dati i valori da 


inserire nei DATA). 

La seconda opzione permette di creare il 
nuovo carattere; la terza di vedere affiancati 
quattro caratteri, definiti per esempio per 
disegnare una astronave. 

Gli indirizzi utilizzati per aggiornare la memoria 
(con LOOP di 8 STEP) sono: 

modo TEXT o LORES (46080x8) + 

COD.ASCII del nuovo 
carattere 

modo HIRES (38912x8) + 

COD.ASCII del nuovo 
carattere 




I L) L M ^ ^ ^ w ^ ^ ^ sL' ^ ^ v U ^ •. L./ ^ ^ ^ .1/ \ I ✓ ^ x I > v [^ I x ^ l > ^ ^ ^ .1. 

In l. i I ^^XXXXXXXXXTX XXXXTXXXXXTX■T'X 

2 REM CHAR-CONSCRUCTOR 

3 REP1 scritto da Fabrizio Russo 
4 REM 
5 REM 

6 [^ | M \L” ^ ^ ^ ^ ^ w ^ ^ 'X' ^ ^ ^ \L/ ^ ^ ^ ^ u,. ^ w/ ^ ^ ^ ^ ^ ^ ^ 

7 CLS:INK0 :GOSUB1003 
8 DIM2C6,8D,QC8D :PAPER7 


3 PLOT 1,6,"Per definire nuooi caratteri, 
riempi" 

10 PL0T3,8,"il rettangolo che rappresent 
a i l " 

11 PL0T13,10,"carattere. " 

12 PL0T3,14,"1 - Per modificare caratter 
i gia’":PL0T7,15, " inser it i " 

13 PL0T3,17,"2 - Per crearne di nuoui" 
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; 


14 PLOT3,20,"3 - Per uisua l izzare 4 cara 
tter i " :PL0T7,21,"contempora 

neamente" 

15 DOKE#12,49008 :PRINT"Imme11i l’opzione 

II* 

5 

16 GETH$ :H=U6LCH$D:IFH>30RH<1THEN16ELSE1 

7 

17 I FH=1 THENGOSLJB5500ELSEI FH=3THEN 10000 

18 GOSUB11000 

22 CLS 

23 FORT=l1T024 

25 PLOTT,4,CHR$C1263 
30 PLOTT,21,CHR$C1261 
40 NEXT 
50 FORT=5TO20 
60 PLOT 11, T, CHR$ C126 D 
70 PLOT24, T ,CHR$C126 3 
80 NEXT 
90 PRINT 

95 IFJ1=1THEN10003 

100 PRINTSPCCin 6 B C D E F" 

105 PRINT :PRINT:PRINT 
110 FORT =1T08:PRINT 
120 PRINTSPCC5D;T 
130 NEXT 

150 PL0T27,20,"SCALA 192:1" 

180 PLOT30, 1 , "x= lettera" 

190 PLOT30,3 ," 

y=numero " 

200 PLOT30,5,"s=stat o" 

210 PLOT30,7,"R=pieno" 

212 PLOT30,9,"U=uuoto" 

213 PLOT30,11,"Z=fine" 

215 PLOT30,13,"S=canc." 

216 PLOT30,15,"0=0k":PR1NTCHR$C173 :1FJ = 1 
THEN6500ELSE220 

220 PLOT 1,24,"Immettere le coordinate ne 
Ila forma" 

230 PLOT 15,25,"x,y,s":PLOT0,26,7 

235 PL0T14,26,16 :PL0T15,26," , , " :PLOT 

21,26,23 

240 GETX$ :POKE49096,ASCCX$3 

250 X=ASC CX$3 

252 I FX$="0"THEN3007 

255 IFX$="Z"THENCLS:PRINTCHR$C173 =END 

256 IFX$="S"THENGOSUB2500:CLEAR:G0T0235 

257 GETY$ :POKE49098,ASCCY$3 :GETS$ :P0KE49 
100,ASCCS$3 


258 Y=ASCCY$3 

260 IFX>64ANDX<71THEN270ELSE235 
270 IFY>48ANDY<57THEN280ELSE2.35 
280 IFS$<>"R"ANDS$<>"U"THEN235ELSE285 
285 m=X-64:Nl-Y-48:ECni,N13=0 
290 IFS$*="R"THENHCHl, NI 3 = 1 :G0T0295 

O Q 1 D r M ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ >1/ ^ 

Z_ U 1 J\ L. | I A A A A ^ A «t- -T 1 ^ ^ ^ ^ ^ ^ ^ ^ ^ 

292 REP1 COSTRUZIONE CARATTERI SCALA 
SCALA 192:1 

O Q O n i M ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

Z U O 1\ L. I I * <T' ^ ^ -T" ^ 'T' <T‘ ^ -T- ^ «T' -T 1 ^ ^ ^ «T* -t* -T- -T 1 (T 1 

295 IFZCHl,NI3=1THEND$=CHR$C1283ELSED$=" 
" : GOTO300 

300 ONN1GOTO301,302,303,304,305,306 

301 HI = 12 :GOTO310 

302 111 = 14 :GOTO310 

303 m = 16 :GOTO310 

304 Ml = 18 :GOTO310 

305 m=20 :GOTO310 

306 m=22 

310 0NN1G0T0311,312,313,314,315,316,317, 
318 

311 N1=5 : G0T0319 

312 Nl=7 :G0T0319 

313 Nl=9 :G0T0319 

314 NI = 11 :G0T0319 

315 Nl = 13 :G0T0319 

316 Nl = 15 :G0T0319 

317 Nl = 17 :G0T0319 

318 Nl=19 

319 PLOTN1,N1,D$:PLOTM1,N1 +1, D$:PL0Tni+l 
,NI,D$ :PL0TH1 +1,N1 +1,0$ 

360 IFJ = 1THENRETURNELSE235 
370 RETURN 

1000 REM X**************************.* 

1001 REM ROUTINE INIZIO 

1002 REH X*************************** 

1003 PAPER4 :PRINTCHR$C17D 

1005 PRINTCHR$C43 :D0KE#12,48489 

1010 PRINTCHR$C273J "N CHAR-CONSCRUCTOR"; 

CHR$C43 

1020 WAIT300:CLS:PRINTCHR$C173 
1030 RETURN 

2440 REN **************************** 
2450 REM ROUTINE CANCELLAZIONE 

CARATTERE 

2460 REM **************************** 
2500 F0RT=12T023 
2600 FORY=5TO20 
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2650 N1=N1+1 
2700 PLOTT,Y," " 

2800 NEXTY,T 
2900 RETURN 

3004 REM XXXXX********************* 

3005 REH ROUTINE COSTRUZIONE 

RETTANGOLO SCALA 48’. 1 

3006 REU 

3007 CLS :FORT=14TQ21 
3010 PLOTT,12,CHRSC126D 
3020 PLOTT,21,CHR$ C126 3 
3030 NEXT 

3040 FORT=13TO20 
3050 PLOT 14,T,CHRS C126 3 
3060 PL0T21,T,CHR$C1263 
3065 PL0T13,10,"SCALA 48:1" 

3070 NEXT:DOKE#12,49000 

3080 Y-0:T=0:X=0:L=0 

3090 S=46848:GOSUB3099:GOTO4010 

3096 RED *************************** 

3097 REM CALCOLO DA DECIDALE A 

BINARIO 

3098 REFI *************************** 

3099 G=13 :G1=20:G2=14 

3100 Y=0 :L=0:T=0 
3110 FORT=GTOG+7 
3150 Y=Y+1 :Q C Y3 =0 

3200 F0RX=G1T0G1-5STEP-1 

3400 IFZCX-G2,Y3=1THENL$=CHR$C1283:QCY3= 

QCY3+2fL: GOTO3600 

3500 L$=" " 

3600 PLOTX,T,L$:L=L+1 

3700 NEXTX:L=0:NEXTT 

3710 IFJ1=1THEN10060 

3750 REFI ************************** 

3760 REFI SOSTITUZIONE CARATTERE 
NELLA MAPPA CARATTERI 


3770 RED ************************** 

3800 FORT = 1T08 
3900 POKES+T-1,QCTD 
4000 NEXT:RETURN 

4010 PRINT"Il carattere da te costruito 
e’ " ;CHR$C96D ;CHR$C173 

4020 PRINT"Uuoi sostituirlo con un carat 
ter e " :PRINT"gia’ esistente 
CS/N3?"; 

4030 GETH$ : IFH$ = "S"ORH$ = "N"THEN4040ELSE4 
030 

4040 IFH$="S"THEN4060 
4045 PRINT 

4050 PRINT"Uuoi modificare questo tuo ca 
rattere CS/N3?' 1 ; :GETH$ 

4055 IFH$="S"ORH$="N"THEN4057ELSE4050 

4057 IFH$="S"THENH=96:J=1:G0T018 

4058 CLEAR:GOTO5000 
4060 CLS 

4070 PLOT 8,12,"1 - In codice ASCII 
4080 PLOT 8,14,"2 - Con il carattere 
4090 D0KE412,49000 :PRINT"In che modo lo 
<uuoi sostituire 1/2 

4100 GETH$ :H = UALCH$3 : IFH>20RH<1THEN4100E 
LSE4150 

4150 IFH=1THEN4200ELSE4300 
4200 CLS:PRINT:PRINT 

4230 PRINT" Imrnett i il calore del c.o d i c e 
ASCII" : PRINT :PRINTSPCC103 ; 

4250 PRINT"di^erso da 96 "; : INPUTH : G0T04 
450 

4300 CLS :D0KE412,48522:PRINT"Digita il c 
arattere da sostituire " 

4350 D0KE412,48607:PRINT"senza premere R 



ETURN " ; :GETH$ 

4400 PRINTH$:H=ASCCH$3 

4420 IFH>128ORH<32THEN4300 

4430 IFH <123ANDH> 96THENPRINTCHR$ C 20 3 ELSE 

4550 :GOTO4550 
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4450 IFH=96THEN4500ELSE4470 
4470 IFH>1280RH<32THEN4500ELSE4550 
4500 PRINT"Riscrivi correttamente il cod 
ice"; : INPUTH :GOTO4450 
4550 IFJ = 1THENRETURN 
4600 S=46080+CHX83 :GOSU83800 
4700 CLS:PRINT " Per immettere nei tuoi 
programmi questo nuovo " I 

4800 PRINT"carattere, dovrai"," 

4850 PRINT" scrivere nelle DATA i" 

4900PRINT" seguenti valori:" 

4910 PRINT:PRINT:PRINTSPCC93 ; 

4920 F0RT=1T08:PRINTQCTD ; :NEXT 
4950 PRINT 
5000 PRINT 

5005 PRINT"Uuoi continuare CS/N3?" ; :GETH 
$ 

5010 IFH$ <>"S"ANDH$<>"N"THEN5000ELSE5020 

5020 IFH$ = "S"THENCLEAR :CLS :G0T09 

5030 CLS :END 

5500 J = 1 :GOSUB4060 

6000 F0RT=1T08 

6020 A=PEEKC46079+CHX83+T3 

6030 F0RX=6T01STEP-1 

6040 U=INTCA/23:Ul=A-CUX23 

6050 2CX, T3=U1 

6060 A=U:NEXTX,T 

6065 IFJ1=1THEN3100 

6070 G0T022 

6440 REM X*************************** 
6450 REM ROUTINE UI SUOLI22A21 ONE 
CARATTERI ORIC-1 

6460 REFI XXXXXXXXXXXXXXXXXXXXXXXXXXXX 
6500 F0RT=1T08 
6600 FORX=lT06 
6700 m=X :N1=T :G0SUB295 
6800 NEXTX,T 
6900 IFJ1=1THEN10020 
7000 J=0:GOTO220 

Q Q Q D P" M 

J O / |x L. I I A A A ^ A A A A <t- A ^N A A <r ^ ‘T' ^ ^ A m A A 

9998 REO UISUALI22A2IONE 4 CARAT. 

9 9 9 9 R E n )Jc /le )|e /le /le >|e /|e >|c >|e ^je /le )le /le >|e /le /le >|e /le )!e ^le ^le )le ^|e )|e /le )|e /le /le 

10000 J1 = 1 :G = 5:GOT022 

10003 E=1 :PL0T1,0,"Scrivere il codice AS 
Oli del carattere" 

10004 D0KE412,48120:PRINT"Carattere in a 
Ito a sinistra ";:INPUTHCE 

3 : GOSUB10100 

10005 D0KE412,48160:PRINT"Carattere in a 
Ito a destra ";:INPUTHCE 

3 : GOSUB10100 

10006 D0KE412,48960:PRINT"Carattere in b 
asso a sinistra ";:INPUTHCE 

3 --GOSUB10100 


10007 D0KE412,49000:PRlNT"Carattere in b 

asso a destra ",*:INPUTHCE 

3 :GOSUB10100 

10010 F0RE=1T04:H=HCE3 

10020 IFE=10RE=3THENG1=17:G2=11 

10030 IFE=20RE=4THENG1=23:G2=17 

10040 IFE=3THENG=13 : GOTO10050 

10050 GOTO6000 

10060 NEXT:J1=0 

10061 FORT=4TO30STEP26 

10062 FORE=7TO20STEP3 

10065 PLOTT,E,CHR$CHC13 3+CHR$CHC233 

10066 PLOTT,E+l,CHRSCHC 33 3+CHRSCHC43 3 

10067 NEXTE,T 

10070 J=0 :D0KE#12,49085:GOTO5005 
10097 REFI X************************** 
10098'REO ROUTINE INPUT PATTERN 

10099 REFI xxxxxxxxxxxxxxxxxxxxxxxxxxx 

10100 IF=HCE3 <320RHCE3> 127THENCLEAR : GOTO 1 

0000 

10200 E = E+ 1 -‘RETURN 
11000 CLS :P RI NT 

11010 PRINT"Uuoi visualizzare un caratte 
re immet- tendo gli 8 valori die,i '* • 

11020 PRINT"bytes " :PRI'NT"d i pattern CS/N 
3?" ; :GETA$ 

11030 IFA$="S"THEN11040 
11035 RETURN 
11040 PRINT : PRINT :J = 1 
11050 F0RT=1T08 

11060 PRINT"Byt e n." ; T ; : INPUTA: IFA<0ORA> 
63THEN11060 
11070 F0RX=6T01STEP-1 
11080 U=INTCA/23:U1=A-CUX23 
11090 2CX,T3=U1 
11100 A=U : NEXTX,T 

11110 PRINT : PRI NT"Hai scritto bene i vai 
ori CS/N3?";:GETA$ 

11120 IFA$="S"THENRETURN 
11130 CLS :PRINT:PRINT:G0T011050 
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TELE COSTO 



Come molti lettori sapranno (magari a proprie 
spese!) il costo di una telefonata in 
teleselezione dipende, oltre che dalla durata 
della conversazione, anche dal tipo di 
apparecchio telefonico (collegato in singolo o 
duplex), dalla fascia di utenza, dal volume di 
telefonate effettuate per bimestre, dalla fascia 
oraria e dalla distanza. 

Fare quindi il computo del costo di una 
telefonata sulla base delle tabelle riportate 
nell’elenco telefonico SIP non è poi così 
immediato: questo programma viene perciò 
incontro a coloro che per necessità o anche 
per sola curiosità desiderino sapere il costo di 
una o più telefonate interurbane effettuate. 

Una serie di menù accompagnano l’utente ad 
identificare la propria fascia di utenza, la fascia 
oraria, la distanza. 

Fatto ciò il computer è pronto: basterà quindi 
comporre sull’apparecchio telefonico il numero 
desiderato e premere la barra spaziatrice 
all’inizio della conversazione. Al termine, 
premendo un qualsiasi tasto, si bloccherà il 
CLOCK del CBM 64 che avrà calcolato la 
durata della telefonata e quindi il suo costo che 
verrà immediatamente visualizzato. 

Tutti i valori riportati nelle tabelle SIP sono 
memorizzati in matrici e vettori corrispondenti 
ai DATA delle linee 60-80; così, in caso di 
aggiornamento delle tariffe, i lettori sapranno 
dove e come intervenire. 

TELECOSTO si limita a consultare in maniera 
immediata le tabelle fornite dalla SIP 
sull’elenco telefonico per cui si declina ogni 


responsabilità per gli eventuali disaccordi tra i 
costi computati dal vostro CBM 64 e le...reali 
bollette! 


STRUTTURA PROGRAMMA 


20-80 

90-240 

270-390 

400-570 

580-690 

700-810 

1000-1330 

2000-2070 


dimensionamento e caricamento 
matrici e vettori 
scelta della fascia di utenza 
menù scelta fascia oraria 
menù scelta distanza 
telefonata 

calcolo costo parziale e totale 
subroutine per la presentazione 
grafica e sonora 

subroutine per il controllo dei dati 
in INPUT 


ELENCO VARIABILI 

S(I,J) matrice contenente la durata degli scatti 
in secondi 

CS(I) vettore costo degli scatti 
FO(l) vettore fascia oraria 
Tl$ durata della telefonata espressa in ore, 
minuti, secondi 

TI variabile, tipica dell’orologio interno del 
CBM64 

IT inizio telefonata 

FT fine telefonata 

DT durata telefonata 

NS numero scatti 

CT costo telefonata 

CI costo di tutte le telefonate 

S registro di attivazione degli effetti sonori 
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1 REM * *****##***•.*.* ******.** * 


2 REM * * 

3 REM * TELE COSTO * 

4 R E M * * 

5 REM * DI MAURO CI FANI * 

6 REM * * 


7 REM ********************** 

3 REM * PER COMMODORE 64 * 

9 REM * * * * * ******* ********** 

10 : 

11 REM ***CALL SUBR.STAMPA COPERTINA*** 

12 : 

13 GOSUB1000 

14 : 

18 REM *DIM. E LETTURA MATRICE E VETTORI* 

19 : 

20 DIMS(7,4), C S < 8 ), F O ( 8 ) 

30 FORI = 1T07:FORJ =1T04:READA:S(I , J )=A:NEXTJ,I 
40 FOR1 = 1T08:READB!CS CI)=B:NEXT 

50 FORI=1T03:READC:FO<I)=C:NEXT 

60 DATA 150,150,150,150,35,72,96,144,24,40,52.5,80,15,22.5,35,45 
70 DATA 12.5,20,32,40,11.5,13.5,29.3,37,11.5,18.5,29.8,37 
80 DATA 106,40,36,106,40,96,106,113,2,1,2,3,4,2,4,4 

89 : 

90 REM * * *SCELTA FASCIA DI UTENZA*** 

31 : 


95 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
130 
200 
2 10 
220 
230 
240 
267 
263 
269 


PR I NT " J" ,' 

PRINT"a~O.KS" 

PRINT-HBQNO PRONTO AD AIUTARTI A CALCOLARE LE■ 
PRINT"TUE SPESE TELEFONICHE.PRIMA PERO'DEVI" 

PRINT"DIRMI IN QUALE FASCIA DI UTENZA PENSI" 

PRINT"DI ESSERE COMPRESO:" 

A (UFFICI,AZIENDE ECC.) n 

SINGOLO FINO A 30 SCATTI BIM. 
SINGOLO TRA 81 E 132 SCATTI" 
SINGOLO TRA 133 E 266 SCATTI" 
DUPLEX FINO A 100 SCATTI" 
DUPLEX TRA 101 E 166 SCATTI" 
DUPLEX TRA 167 E 266 SCATTI” 


pr int 11 Bina r 1 ]■ 
PR INT" MMM 12IW 
PRI NT" )OTia C 3 
PR INT"MMC4 3» 
PR INT " Ulia rSIM 
PR INT"SBHaiBDI 
PRI NT "Mia[ 7 3* 
PRI NT ’’ BUMa CSlW 
GOSUB2000 
CS=CS(VAL(A$)) 


REM * * +-SCELTA FASCIA ORARIA*** 


B 

B 

B 

B 

B 

B 


OLTRE 266 SCATTI 


270 

PRINT" 

EBBENE " 






280 

PRINT" 

HDRA DEVI 

DIRMI IN 

QUALE 

MOMENTO STAI" 

290 

PRINT" 

TELEFONANDO: 





300 

PRINT" 

Miai i :■ 

LUN-VEN 

DALLE 

0300 

ALLE 

0830 " 

3 10 

PRINT" 

2 :■ 

LUN-VEN 

DALLE 

0830 

ALLE 

1300 " 

320 

PRINT" 

M iaC3 3« 

LUN-VEN 

DALLE 

1300 

ALLE 

1830 " 

330 

PRINT" 

MMC4 3| 

LUN-VEN 

DALLE 

1830 

ALLE 

2200" 

340 

PRINT" 

MI3C5 3* 

LUN-VEN 

DALLE 

2200 

ALLE 

0800 " 

350 

PRINT" 

Muacs ]■ 

SABATO 

DALLE 

0300 

ALLE 

1300 " 

360 

PRINT" 

aliai? ]■ 

SABATO 

DALLE 

1300 

ALLE 

0800 " 

370 

PRI NT '* 

sgasar 3 3 ■ 

DOMENICA 

E ALTRI FESTIVI" 


330 

G0SUE2 

000 





























380 

337 

338 

399 

400 

4 10 
420 
430 
440 
450 
460 
470 
480 
430 
500 

5 10 
520 
530 
540 
550 
560 
570 
577 


578 

579 

580 
590 
600 
605 
6 10 
630 
640 
650 
660 
670 
630 
698 

697 

698 

699 

700 
710 
720 
730 
740 


J =F0 < M ; 

3 E M »»» INPUT DISTANZA»»* 


O MENO," 


FRI NT " JfiPENE " 

PRINT" CHE DISTANZA PENSI,PIU* 

PRINT"DI TELEFONARE?" 

pr i nt" amaci :■ nel tuo stesso settore" 

PR I NT " «Mia i 2 ]■ ENTRO 15 KM" 

PRINT " tt»ia [3 ]■ DA 15 A 30 KM" 

PR I NT 11 Bllia r 4 ] ■ DA 30 A 60 KM" 

PR I NT " A1I31 5 ] ■ DA 60 A 120 KM" 

PR I NT 11 H»ia [ 6 ] W DA 120 A 240 KM" 

FRI NT '* B»»ia C7 ]■ OLTRE 240 KM" 

GETA$: PR INT"i 
FORT =1TO250:NEXT 


]■ aSCF3LI«" 



REM »»»INIZIO TELEFONATA»»» 


PRINT"jao.K.■" 

PRI NT" SJ30N0 PRONTO AD INIZIARE LA TELEFONATA." 
PRINT"BPUANDO INIZIERAI A PARLARE,PREMI LA " 

PRINT"BARRA 3C SPAZ IO ] ■. " 

PRINT"BPL TERMINE,PREMI UN TASTO QUALSIASI." 

GETAS:IFA$=""THEN630 

IFAfO" " THEN630 

TI* ="000000 » : IT=INTCTI/60) 

print" u rata telefonata:®" 
pr i nt " a»ia t i $ " ■" 

GETA*: IFASO" "THEN700 
GOTO660 


REM » * »CALCOLQ SCATTI E COSTO»»» 


FT=I NT < TI/60):DT = FT-IT 
NS =INT <DT/S(I ,J ) + .5 ) + 1 
CT=NS»CS:C1=C1+CT 

PRINT"JIL COSTO DI QUESTA TELEFONATA E' Di:" 
PR I NT " Slt . " ;CT 
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750 
760 
770 
730 
790 
300 
3 10 
997 
938 

999 

1000 
1005 
1007 
10 10 
1020 
1030 
1040 
1050 
1060 
1070 
1030 
1090 
1 100 
1 1 10 
1 120 
1 130 
1 140 
1 150 
1 160 
1 170 
1 180 
1 190 
1200 
12 10 

12 15 
12 16 
1217 
12 18 
1250 
1260 
1278 
1280 
1290 
1300 

13 10 
1320 
1330 

1997 

1998 

1999 

2000 
20 10 
2020 
2030 
2040 
2050 
2060 
2070 


l r - 

w | 

i~> s 


liti 


PRINT"H5fflIL COSTO TOTALE DI TUTTE LE TELEFONATE" 

PRINT"HE' FINORA DI £.";C1 

PR INT 11 V i ANCORA TELEFONARE? <S/N) " 

GETA$:IFA$=""THEN780 
IF A$="S"THEN270 
IFA$< >"N"THEN780 

PRINT"J" ; :POKE53280,254 :P0KE53281,246:END 

• 

■ 

REM ***SUBR.STAMPA COPERTINA*** 

PR I NT " Li" :POKE53280,246*.POKE53281 ,246 

S =54272 :FORI=STOS +24 : POKE I , 0 : NEXT : POKES +24,15 : POKES +5,1*16+5 
POKES+6,1*16+0:POKES+3,3 :POKES+2,0 
PRINT:PRINT:PRINT 

PRINTTAB(6> B 3 TELE COSTO ■ " 

PRINTTAB(6)" _" 

PRINTTAB < 6 ) " ^^ " 

PRINTTAB < 6 >" 

PRINTTAB(6 >" 

PRINTTAB(6)" 

PRINTTAB <6 >" 

PRINTTAB <6)" 

PRINTTAB<6)" 

PRINTTAB(6)“ 

PRINTTAB <6)* 

PRINTTAB<6V 
PRINTTAB(6)" 

PRINTTAB<6?" 

PRINTTAB<6>" 

PRINTTAB(6?" 

PRINTTAB <6) M 
PRINTTAB < 6 ) " 

PRINTTAB < 6)" 

PRINTTAB<6)” DI MAURO CIFANI” 

FORI=55456T056255:POKEI,7:NEXT 
FORI=55456T056255:POKEI,1 :NEXT 
FORI=55456T056255:POKEI,2:NEXT 
FOR I=55456T056255*. POKE I , 13:NEXT 
POKES+1 ,32:POKES,3:POKES+4,65 
FORT =1TO250:NEXT 
POKES+4,0 : FORT =1TO200:NEXT 

POKES +1,32:POKES,3 :POKES +4,65:FORT=1TO550:NEXT 
POKES+4,0 :FORT=ITO 1000 :NEXT 
A =A +1 : IFA=4THEN1320 
GOTO 1250 

FORI = ITO 16 :POKE53280,I:FORT=ITO 100 :NEXTT,I 
POKE53280,246 *■ RETURN 

REM ***SUBR.LAMPEGGIO IN MENU' E CONTROLLO INPUT*** 


/ 


/ 

I_ 


- 

- > " 

/ 

x 

f 

> 


V 


GETA*:PR INT*'j 
FORT=1TO250:NEXT 
PR I NT " CMUC 3 SCEGLI” 
FORT=1TO250:NEXT 
IFA$=""THEN2000 
A=VAL <A*) 

IF A <10RA >8THEN2000 
RETURN 


|C ]■ asCEGLIB" 
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SMASH 


Questo gioco permetterà di apprezzare la 
velocità di esecuzione del vostro ORIC-1 pur 
senza ricorrere all’ausilio di routine in 
linguaggio macchina. 

SMASH è una versione rivisitata del vecchio 
indimenticabile «MURO» ed è accompagnata 
da una particolare presentazione. 


I soliti mattoni sono sostituiti questa volta da 
«funghetti». 

È prevista la possibilità di scegliere il grado di 
difficoltà, ma attenzione (!!!), anche dopo 10 
battute l’angolazione e la velocità della pallina 
variano, rendendo così più difficile il gioco. 
Subroutines ed algoritmi sono indicati con delle 
REM aH’interno del listato. 





2 REM XXXX XXXX 

3 REn XXXX S n A S H **** 

4 REfl XXXX XXXX 

5 REn XXXX scritto da XXXX 

6 REM **** FABRIZIO RUSSO **** 

7 REH XXXX XXXX 

8 REn **** XXXX 


10 CLS:CLEAR:PAPER1 : INK3 :DinCC210 
12 PRINTCHR$C63;CHR$C173 

15 GOSUB1000:DpKE#12,48013:PRINT"S n A S 
H" 

16 B=27 :W-0:n=0:U=0 


17 CLS :PAPER3 : INK0 :U=0 

18 IFn>0THENU=U+28:B=W+U:GOSUB800:GOTO50 

19 REn *** DISPOSIZIONE FUNGHETTI SET n. 
1 *** 

20 FORT=4TO20STEP4 
30 F0RY=TT0T+2 

35 PL0T25,Y,CHR$C126D 

40 NEXTY,T 

41 FORT=6TO20STEP4 
43 FORY = TTOT + 2 

45 PL0T17,Y,CHR$C1263 
47 NEXTY,T 

49 REN XXX BORDO CAnPO E SCRITTE XXX 

50 F0RT=1T025 






































60 PL0T38, T , CHR$C1281 

70 NEXTT 

80 F0RT=1T038 

90 PLOTT,1,CHR$C128D 

100 NEXTT 

110 FORT=1T037 

120 PLOTT,25,CHR$C1283=NEXT 

125 PL0T5,26,"PUNTEGGIO" 

126 K=38: PLOT5,0,"SET n.":DOKE#12,48051 : 
PRINTM+1 

128 PLOT14,26,STRSCU3 

130 IF L> lTHENK = 37-L + 2 :F0RT=37T0KSTEP-1: 
PLOTT,26,":NEXT 

131 REN XXX FLUSSO GIOCO XXX 
140 E=12 :PLOTCl,E,"!":R=E 
160 T = INTCRNDC13X213+4 

165 D=INTCRNDC13X23-1 

169 IFD=0THEND=-1 

170 D=1 

171 S=5 :A=ABSCA3 

172 PLOTS, T, " " :S=S+A 

173 T=T+D 

174 IFT>24THENT=23:G0T0176 

175 IFT <2THENT=2ELSE177 : GOTO 176 

176 MUSICI, 5,1, 15 :PLAY1,0,1,1 :PLAY0,0,0, 
0:D=-D 

177 IFS>K1THENA=-A:MUSIC 1,4, 1, 15:PLAY1,0 

,1,1 :PLAY0,0,0,0:S=K2: GOTO 175 

_ 

178 IFS<1THEN300ELSE180 

179 IFD=0THEND=2ELSE190 :GOTO190 

180 IFSCRNCS,T3=126THENA=-A:MUSICI,5, 1, 1 
5 : PLAY 1,0, 1, 1 :PL(9Y0,0,0,0:G 

OSUB500 

181 IFSCRNCS, T3=64THENA=-A:PLOTS,T,CHR$C 
125 3:SHOOT:WAIT10 :GOSUB500 

182 GOTO 190 

183 MUSIC 1,5, 1, 15 : PLAY 1,0,1,1:PLAY0,0,0, 
0 

184 GOSUB500 

185 NEXT 

190 GOSUB401:PLOTS,T,"{ " 

200 IFS <^2ANDT=E+1THEND=1:GOTO420 
230 A$=KEY$ 

240 IFA$="A"THEN2=P:G0T0256 

250 IFA$="L"THENZ=-P 

256 E=E + 2 

260 IFE <3THENE=3 

262 IFE>23THENE=23:G0T0172 

265 PLOTC1,R, " " 

280 PLOTC1,E,"!":R=E 
290 GOTO 172 

300 MUSIC 1,2, 1, 15 :PLAY 1,0, 1, 1 :UFtIT100 =PL 

AY0,0,0,0 :PLOTl , E, " " :C2=0 

315 PLOTK, 26,." " :K=K+1 

320 IFK=39THENWAIT100:GOT0700 

325 IFF=1THEN(9=1 :P=1 :GOTO160 


330 GOTO 160 

340 PRINTCHR$C6 3 : PRINTCHR$C173 :INK0 :PAPE 
R7 : CLS: END 

400 REM XXX ROUTINE CONTROLLO BATTUTO XX 
X 

401 IFS <=C1ANDT=ETHEN420 

403 IFS<=C1ANDT=E+1THEN420 

404 IFS<=C1ANDT=E-1THEND=-D:GOTO420 
410 RETURN 

420 MUSICI, 3, 1 , 15 :PLAY 1,0, 1, 15 sPLPlYl, 0, 1 
,1 :PLAY0,0,0,0:A=-A:S=S+A:C 
2=C2 +1 

425 IFC2 <10THENRETURN 

427 IFP=1THEND=2:A=2:S=C1+1:P=2:RETURN 
430 IFSGNCD3=1THEND=D+1 :GOTO450 
440 D=D-1 
450 C2=0 : RETURN 

499 REM XXX ROUTINE CONTROLLO PUNTEGGIO 
XXX 

500 Ui=Ul+1 :U$ = STR$CU3 
505 PLOT 14,26, Ul$ 

510 IFUI=BTHEN600 

520 re;turn' 

590 XXX ROUTINE CAMBIO SET XXX 
600 PLAY 1,0,3,300:WAIT100 :PLAY0,0,0,0 
603 RESTORE SFORAI=0TO6 :READJ,T;MUSICI,4, 
J, 15 :PLAY1,0, 1,5:WAITT :PLAY 
0 , 0 , 0,0 
605 NEXT 

608 CLS :PRINTCHR$C43:FORT=0TO13:PRINT:NE 
XTT :M=M+1 :PAPER0:INK7 

610 PRINTSPCC103JCHR$C273J"N B R A U 0 2 

li 

612 PRINT :PRINT:PRINT:PRINT 

614 A$=Ch!R$C27 3 + "N"-i-STR$CUI3 

615 PRINT :PRINTCHR$C273 "J II tuo P 

unteggio e’ "A$ 

620 PRINTCHR$C 4 3 :FORT=16TO20:PRINT:NEXT 
625 WAIT50 

630 PING:PRINT" Uuoi giocare ancora CS 
/N3 ";:INPUT2$ 

640 IF2$="S"ANDU=0THEN17 

645 IF2$="S"ANDU=1THENCLEAR:G0T0655 

650 GOTO340 

655 CLS :GOSUB1062:G0T016 

699 REM XXX ROUTINE FINE PALLINE XXX 

700 RESTORE:FORA1=0TO6:READJ , T:NEXT 

702 FORA'l =0TO 1 1 :READJ , T :MUSIC1,3, J j 15 :PL 
AY1,0, 1,5 :UAITT:PLAY0,0,0,0 

:NEXT 

703 PAPER0 : INK7:CLS 

704 GOSUB900 

709 PRINTCHR$ C4 3 . 

710 FORT=0TO10:PRINT:NEXT 
720 U-l :UIAIT50 :G0T0612 

799 REM XXX DISPOSIZIONE OMINI SET SEGUE 
NT I XXX 
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800 F0RT=9T033STEP4 

810 FORX = 1T0U/7 

820 T=INTCRNDC13*22D+3 

822 CCXD=Y 

823 FORI=0TOX-1 

825 IFCCX>CCI)THENI=X-1 :NEXTI :GOTO820 
830 NEXTI 

840 PLOTT,T,CHR$C64D 
850 NEXTX 
860 NEXTT 
870 RETURN 

900 IFM=0THEN905ELSE920 

905 PL0T5,9,"NON SEI STATO MOLTO BRADO" 

910 PL0T7,12,"MA NON TI SCORAGGI ARE2" 

915 RETURN 

920 IFM=1THÉN925ELSE940 
925 PLOT 12,9,"NON C’E’ MALE" 

930 PL0T4,12,"RITENTA CON UNA NUOUA PART 
ITA" 

935 RETURN 

940 PLOT10,9,"SEI UN BUON GIOCATORE" 

950 PLOT 1,12,"RIPROUA CON UN LIUELLO PIU 
’ DIFFICILE" 

960 RETURN 

999 REM XXX ROUTINE INIZIO XXX 

1000 X=1 :R=36 :E=25 :GOSUB2000 

1001 PLAT0,1,2,1640 

1002 FORTUITO 12:X=X+1:R=R-1:E=E-1 

1004 PLOTX,Y,"S":PLOTR,Y,"H":PLOT19,Y,"A 
":PL0TX+2,E,"M":PL0TR-3,E," 

S":CLS 

1005 NEXT :D0KE#12,48492 

1006 PRINTCHR$C4D ;CHR$C273 J’’N S M A S H" 
1008 EXPLODE : LIA IT 100 :PR I NTCHR$ C 4 D 

1010 D0KE412,49018 :PRINT"by Fabrizio Ru 
sso" 

1011 FORA1=0TO6 

1012 READJ,T:MUSIC1,3,J,14:PLAY1,0, 1,2 : 
UAITT:PLAT0,0,0,0 

1013 NEXT 

1015 WAIT150 :CLS :PAPER4 : INK0 

1020 PLOT7,8, "Dovete colpire tutti i 11 

1030 PL0T8,9,"funghetti e gli omini" 

1040 PL0T7 5 10, "-che si trovano in campo" 
1050 PL0T6,15,"Per salire premere. L" 

1060 PL0T6,18,"Per scendere pre mere...A" 
:ZAP 

1061 LJAIT300 :CLS :PAPER3 : INK0 

1062 PL0T8,10,"GRADI DI DIFFICOLTA’" 

1063 PLOT11, 14," 1 - Imbranato" 

1064 PLOT'l 1, 16, "2 - Normale" 

1065 PL0T11,18,"3 - Non umano" 

1070 FORT-'l T022 :PRINT :NEXT :PING 

1075 PRINT ' Immetti il tuo grado di abi 
lita’" 

1076 PRINT '" ";:INPUTP 


1077 IFP<1ORP>3THEN1076ELSEIFP=1THENK1=3 
7 :K2=36:GOTO1079 

1078 Kl=35 :K2=37:GOTO1079 

1079 PRINT:PING 

1080 PRINT"Imme11 i il numero di palline 

Cl-103 " ; 

1090 INPUTL :IFL<10RL>10THEN1090ELSE1095 : 
GOTO 1095 

1095 IFP=3THENA=4:P=2:C1=4:GOTO1200 

1096 IFP=2THEN1100 

1097 F=1 :P=1 
1100 CI=2 :A=P 
1200 RETURN 

1500 DATA 1,20,1,7,1,7,2,20,1,40,-1,20,6,2 
0 

1600 DATAI2,20,1 1,20,10,20,9,20,8,20,7,2 
0,6,20,5,20,4,20,3,20,2 20, 

1,40 

1900 REM XXX DEFINIZIONE PALLINA XXX 

2000 FORT=0TO37:READA1:NEXT 

2010 DATA0,0,0,12,12,0,0,0 

2020 FORT=47064TO47071 

2030 READA1:POKET,Al:NEXT 

2035 REM XX DEFINIZIONE OMINO UIUO XX 

2040 DATA62,42,62,12,30,63,18,18 

2050 F0RT=46592T046599 

2060 READA1:POKET,Al:NEXT 

2065 REM XX DEFINIZIONE OMINO MORTO X 

2070 DATA14,17,14,0,31,21,27,4 

2080 FORT=47080TO47087 

2090 READA1:POKET,Al:NEXT 

2095 REM XX DEFINIZIONE FUNGHETTO XX 

3000 DATA30,63,63,12,12,12,0,0 

3010 FORT=47088TO47095 

3020 READA1 :POKET,Al :NEXT 
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SU E GIÙ PER LA PENISOLA 


(seconda parte) 



Ecco la seconda parte del listato che completa 
il programma presentato nel numero 
precedente: prima di iniziarne la battitura vi 
ricordiamo di caricare nel computer la prima 
parte. 

II listato che segue comprende 20 subroutines 
numerate di 100 in 100, ognuna delle quali è 
relativa ad una regione. 

Ecco una breve spiegazione, a titolo di 
esempio, della prima di esse (R. 5300-5380); 
quanto descritto s’intende valido anche per le 
altre, che hanno analoga struttura. 

R. 5300 Vengono definite la/le stringhe 

di caratteri grafici che, 
sovrastampate sulla cartina 
della penisola nella posizione 
indicata dal cursore, 
determinano l’evidenziarsi della 


regione sul resto dell’Italia. 

Il lampeggio è ottenuto 
alternando il colore nero con 
quello verde (variabili C e D) e 
comandato dalla riga 230. 

R. 5310-5320 Visualizzazione della regione 
mediante la stampa di strisce 
orizzontali successive di 
caratteri grafici. 

R. 5330 Viene assegnato alla variabile 

B$ il nome della regione. 

R. 5380 Viene assegnato alla variabile J 

il numero di capoluoghi di 
provincia della regione: ciò 
permette di controllare il 
numero di dati letti con il loop 
di riga 280. 
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0 5300 CURS0R2 ,3 sPRINTCC,13 "C_j_C8C8" : RETURN 

5310 CURSORI 4,7:PRINT" F5C8C8C8E9 ":PRINTT 
ABC43" C8E9 F5C8C8C2C8C8C8C8CBC8C8D5 ":PR 
INTTABC13" C2C2C2C8C8C8C8C8C8C8C8C8C8C8C8 
A C8C8C8D5" :PRINT" C8C8C8C8C8C8C8C8C8C8C8C8 

^ C8C8C8C8C8C8C8D5 "sPRINT" C8C8C8C8C8C8C8C8 


CBC8C8C8C8C8C8C8C8C8C8D5 ":PRINT" D8C8C8C8 
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8F9 " :PRIN 
TTABC13" FEC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8 
C8C8C8D5 ' 1 

5320 PRINTTABC33" C8C8C8C8C8C8C8C8C8C8C8C 
8C8C8C8C8C8C9 "SPRINTTABC33" l 1C8C8C8C8C8C 
8C8C8C8D8D8C8C8C8C8 " sPRINTTABC33" C8C8C8C 
8C8C8C8C8C9 ":PRINTTABC43" FEC8C8C8C9 " 

5330 B$="UALLE D'AOSTA":RETURN 
5380 J=1sRETURN 

5400 CURS0R5,2:PRINTCC,1]"E9":PRINT[C,]T 
ABC53"C8" : PRI NT[C,13TABC23"F5C8C8C8":PRI 
NTCC,43TABC23" C8C8C8C8E9 ":PRINT[C,43TABC 
23 " C8C8C9 " :PRINT[C, 43TABC33 "C9_" sRETURN 
5410 CURSORI 3, 2 :PRINT"£5" sPRINTTABU 1 3 "C. 
2C8C8"sPRINTTABU13"C1C8C8E9"sPRINTTABU 
03" F5C8C8C8C8C2 ”:PRINTTABC93"F5C8C8C8C8C 
8C9 ”:PRINTT8BC93" C8C8C8C8C8C8 "sPRINTTABC 
93"FEC8C8C8C8C8":PRINTTfìBC93" F5C8C8C8C8C 
8E9 ’’ sPRINTTABC43 " C2C2C8C8C8C8C8C8C8C8C8C 
< 8" 

5420 PRINTTABC33" C8C8C8C8C8C8C8C8C8C8C8C 
8C8E9 sPRINTTABC33" C8C8C8C8C8C8C8C8C8C8C 
8C9C8 ":PRINT" C2F5C8C8C8C8C8C8C8C8C8C8C8C 
8D5 ":PRINT" C8C8C8C8C8C8C8C8C8C8C8C8C8C8C 
8." :PRINT" C8C8CBC8C8C8C8C8C8C8C8C8C8C8C8C 
8C8E9 ’ iPRINT" DBD8C-8C8C8C8C8C8C8C8C8C8C8C 
8C8C8C8C8E9 :PRINTTABC23" C8C8C8C8C8C8C8C 
8C8C8C8C8C8C8CBC8C8E9 "sPRINTTABU3" C1C8C 
8C8C8C8C8C8C8C8C8C8C8C8C8C8D8C8C8 ' 

5430 PRINT" C1C8C8C8C8C8C8C8C8C8C8C8C8C8C 
8D8C9 ":PRINTTABC13" C8C8C8C8C8C8C8C8C8C8C 
9“ : PR INTTBBC 1 3 " FEC8C8C8C8C8C8C8C8C8" :PRI 
NTTABC23 " FEC8C8C8C8C8C8C8D5 ' 1 :PRINTTBBC43 
" D8D8 D8D8D8 '' 

5440 B$="PIEMONTE"sRETURN 
5480 J=6 sRETURN 

5500 CURS0R4,6:PRINTCC.,43 "F_5_" ; :PRINT[C, 1 
3 " D8D8 " ; sPRINTCC, 43"E9'' sPRINTCC,43TABC33 
"F5" ;sPRINTCC,13 "CCT sRETURN 
5510 CURSORI 2» 7 SPRINT" C 1 E9 C2C2 " sPRINTTA 
BC63" F5C8C8C8C8C2C8C8C8C8C8 ":PRINTTABC63 
" C8C8C8C8C9 C8C8C8C8C2C2 ":PRINTTBBC53"C 
8C8C8C3 FEC8C8C8C2":PRINTTBBC43"F5 

C8C8C9 FEC8C8 " :PRINTTBBC23" C8C8 

C8C8C9 ” sPRINTTABC13" C8C8C8C8C9 ":PRINT"C8 
C8C8C8D8 '' 

5520 B$="LIGURIA“sRETURN 
5580 J=4 sRETURN 

5600 CURSOR6,2 sPRINTCC,13"F5C8C8":PRINT[ 
C, 3TABC63" C8C8L8 1 sPRINTCC,3TABC63" C8C8C8 
C8"sPRINTCC,43TABC63" FEC9 D8D8 ":RETURN 
5610 CURSORI 0,4 SPRINT" CIC8C2 " :PRINTTBBC5 
3" CI 05 C8C8C8D5 :PRINTTABC53" C1C8C2C8 
C8E9C8C8C8 " sPRINTTABC43 " F5C8C8C8C8C8C8CB 
C8"sPRINTTABC13" F5D5F5C8C8C8C8C8C8C8C8C8 
D5" sPRINTTABC13" C8C8C8C8C8C8C8C8C8C8C8C8 
D5 "SPRINT"CIC8C8C8C8C8C8C8C8C8C8C8C8C8C8 


C9"sPRINTTABU 3" C 1C8C8C8C8C8C8C8C8C8C8C8 
C8C9 " 

5620 PRINTTABC23" C8C8C8C8C8C8C8C8C8C8C8C 
8.’ SPRINT" C2r'5C8u8C8C8C8C8C8C8C8C8C8C8ù8 " 
:PRINT" C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8E 
9" : PRINT'' FEC8C8C8C8C8n8D8C8D8C8C8C8C8C8C 
8C8E9":PRINTTBBC33"C8C8C8 D8C8C8C8C 

8C8C8E9 ":PRINTTAB C 33"FEC8C8 1 sPRINTTABC43 

•' FEC9 " 

5630 B$="LOnBAROIA"sRETURN 
5680 J=9:RETURN 

5700 CURS0R9,1:PRINT[C,1]" F5C8C8C8 "=PRIN 
TCC,43TABC93" C8C8C8C9 " :PRINT CC,4 3 TABC93" 
C8C8C9 "=RETURN 

5710 CURS0R13,5:PRINT" C2C2 " SPRINTTABC63 " 
C2C2C8C8C2C2C8C8D5 " sPRINTTABC 1 3" C.2C2 F5 
C8C8C8C8C8C6C8C8C8F9 :PRINT" C1C8C8C8C8C8 
C8C8C8C8C8C8C8C8C8C8 ":PRINT" C8C8C8C8C8C8 
C8C8C8C8C8C8C8C8C8C8 ":PRI NT" C8C8C8C8C8C8 
C8C8C8C8C8C8C8C9 ":PRINT" C1C8C8C8C8C8C8C8 
C8C8C8C8 " :PRINT" C1C8C8C8C8C8C8C8C8C8C8C8 
"SPRINT" L1C8C8C6C8C8C8C8C8C8C8C8E3 " 

5720 PRINT" C1C8C8C8C8C8C8C8C8C8C8C8C9 ":P 
RINT" C8C8C8C8C8C8C8C8C8C8D5 " : PR I NT " CJ_C8C 
8C8C8C8C8C8D8 "sPRINTTABC13"P8 C1C8C8C8 "s 
PRINTTABC 33" CIC8C8 1 

5730 B$= "TRENTI NO-ALTO ADIGE": RETURN 
5780 J=2 sRETURN 

5800 CURS0R14,2:PRINTCC,1]" C8D5 " sPRINTCC 
, 3TABC1 43" C8C8 " sRETURN 

5810 CURS0R4,5 SPRINT" C8C2C2C2C2 C2"sPRIN 
TTABC33" C8C8C8C8L8C8C8C8C8C8D5 "sPRINTTAB 
f13" C1C8C8C8C8C8C8C8C8C8C8C9 "sPRINT" C2C8 
■C3C8C8C8C8C8C8C8C9 ":PRINT"FEC8C8C8C8C8C8 
C8C8C8E9C2 "sPRINTTABC13" CIC8C8C8C8C8C8C8 
C8C8C8C9 " 

5820 PRINTTABC13" C8C8C8C8C8C8C8C8C8C8C8E 
a" SPRINTTABC13" C8C8C8C8C8C8C8C8C8C8C8C8 ' 
-PRINTTABC23" C8C8C8C8C8C8C8C8C8C8 "SPRINT 
TABC33"D8_ CIC8C8C8C8C8C8C2" SPRINTTABC73 
"C9 D8 FEE9" sPRINTTABC 143 "C8D5." 

5830 B$="FRIULI-UENE2I A-SGIULI A" : RETURN 
5880 J=4 sRETURN 

5900 CURSOR12,2:PRINTCC,43" F5C8 ":PRINTCC 
,4 3 TABC 1 13"F5C8C8':PRINTCC,13TABC103"C8C 
8C8C9 "sPRINTCC,4]TABC113"D8D8"sRETURN 
5910 CURSORI 0,5 :PRINT" G8L2C8C8C8 "sPRINTT 
ABC83 " CI C8C8C8C8D8 " sPRINTTABC83" C 1 C8C8C8 
C9" sPRINTTABC 93 " C i C8C8E3 " :PR INTTABC 83 "C2 
C8C8C8C8"sPRINTTABC63" C8C2C8C8C8C8C8 ' : p R 
INTTABC43" C1 C8C8C8C8C8C8C8C8C8C2C8D5 ’’ :PR 
INTTABC13" F5E9C2C8C3C808C8C8C8C8C8C8C8C8 
C8" 

5920 PRI NT" C8C8C8C8C8C8C8C8C8C8C8C8C8C8C 
8D8 '' sPRINT" C8C8L8C8C8C808C8C8C8C8C8C8D8 " 
SPRINTTABC13" FEC8C8C8C8C8C8C8C8C8C8 " :PRI 
NTTABC33" FEC8C8C8C8C8C8C8C8D5" sPRINTTABC 
53" D8C8C8C8C8C8C8C8C2" :PRINTTABC73"D8 
FEC9' : 

5930 B$="UENETO"sRETURN 
5980 J=7sRETURN 

•6000 CURS0R7,5sPRINTCC,43' F5C8C2C2C2C2 's 
PRINTCC,4 3TABC73"FEL8C8C8C8 lS' 1 sPRINTCC,4 
3TABC1 1 3 " FEC8 " ; PRINTCC, 1 3"E9." sRETURN 


6010 CURSOR0,8:PRINT" F5C8CSC8C2C2 C2 C2 
C2 C2C2C2 spRINT" C8C8C8C8C8C8C8C8C8C8C 
8C8C8C8C8C8C8C8C8 " SPRINTA CI C8C8C8C8C8C8C 
8C8C8C8C8C8C8C8C8C8C8D5 - ’ sPRINT" C1 C8C8C8C 
8C8CSC8L8C8C8C8C8C8C8C8C8C8C8 ":PRINT"C8C 
8D8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8 " 

6020 PRINTTABC43" FEC8C8C8C8C8C8C8C8C8C8C 
8C8C8C8D5"sPRINTTABC63" FEC8C8C8C8C8C9FEC 
8C8C8C8C8C8 ’’ sPRINTTABC 1 53 " C8C8C8C8C8C8E9 
"sPRINTTABC153" C8C8C8C9 FEC8 "sPRINTTABC1 

63" D8C8 " 

6030 B$="EdILIA-RODAGNA"sRETURN 
6080 J=8sRETURN 

6100 CURS0R8,7:PRINTCC, 1 3 " FE." ; sPRINTCC,4 
3 " C8C8E9 " sPRINTCC, 3TABC93 " C8C8C8 ". sPRINTC 
C,13TABC93" FEC8C8 "sPRINTCC,13TABC103"FE" 

5 sPRINTCC, 43 "C9." sRETURN 

6110 CURSOR0,2sPRINT"C8 "sPRINT" C 8C8E3 "sP 
RINT" FEC8C8C8E9 C2," sPRINTTABC 1 3 

1C8C8C8C8C2C8C2 C2C2C8C8D5 ' :PRINTTABC23" 
FEC8C8C8C3C8C8C8C8C8C8C8C8C9 SPRINTTABC3 
3" C8C8C8C8C8C8C8C8C8C8C8C8E3 '' SPRINTTABC3 
3" C108C8C8C8C8C8C8C8C8C8C8C8E9 D5 sPRI 
NTTABC33" 2IC8C8C8C8L8C8C8C8C8C8C8C8C8C8C 
8C8C8C3 " 

6120 PRINTTABC33" C1C8C8C8C8C8C8C8C8C8C8C 
8C8C8C8C8C8 sPRINTTABC43" C8C8C8C8C8C8C8C 
8C8C8C8C8C8C8C8 "sPRINTTABC43" FEC8C8C3C8C 
8C8C8C8C8C8C8C8C8C8 "sPRINTTABC53"C8C8C8C 
8C808C8C8C8C8C8C8C8C8C8 ' :PRINTTABC53" C1C 
8 l8l8l8C8l8C8L8l8C8C8C8C3 "sPRINTTABC 53"C_ 
; CbLgcecgCFcecF- cecgcececp " sprinttabc 53"D 
8D808C8C8C8C8C8C8C8C8C8C8 "sPRINTTABC73"F. 
5C8C8C8C8C8C8C8C8D8D8 " 

6130 PRINTTABC83 "D8C8C8C8C8C8C8C8D5"SPRI 
NTTABC103" FEC8C8C8C8C8 "sPRINTTABC113" C8C 
8C8C8 "sPRINTTABC103" C8D8C8C8D8 " 

6140 B$="TOSCANA"sRETURN 
6180 J=9sRETURN 

6200 CURSOR12,8:PRINTCC,43"E9"sPRINTCC,4 
3TABC123" C8E9 "sPRINTCC,43TABC123" FEC9 "sR 
ETURN 

6210 CURS0R4,5 sPRINT" F5C8D5 "JPRINTTABC43 
" C8C8C8C8E9 ":PRINTTABC33" FEC8C8C8C8C8C8D 
5_' :PRINTTABC4 3 "C8C8C8C8C8C8C8 " sPRINTTABC 
33 " C8C8C8C8C8C8C8C8D5 " s~PRINTTABC23" C8C8C 
8C8C8C8C8C8C8C8 "sPRINTTABC23" CIC8C8C8C8C 
8C8C8C8C8 '' 

6220 PRINTTABC23" C1C8C8C8C8C8C8C8C8C8C8C 
2.' SPRINTTABC 23 " C8C8C8C8C8C8C8C8C8C8C8C8C 
8D5" sPRINTTABC23" CIC8C8C8C8C8C8C8C8C8C8C 
8C8 ":PRINTTABC33"D8 C8C8C8C8C8C8C8C8D8D8 
"SPRINTTABC53" FEC8C8C8C8C8P8 "sPRINTTABC6 
3" FEC8C8C8C9 "sPRINTTABC83"DB" 

6230 B$="UnBRIA”sRETURN 
6280 J-2 sRETURN 

6300 CURSOR 12,8:PRINTCC,43 "_FE " I sPRINTCC, 

1 3" C8E9 " sPRINTCC,43TABC 133"_FE_" 1 sPRINTCC, 

13"C8E9"sPRINTCC,43TABC143" D8D8 "sRETURN 
6310 CURSORI,5 SPRINT"C2C8C8 CIC8E9 "sPRI 
NT" F5C8C8C8C8C2C8C8C8E9 "sPRI NT" D8D8C8C8C 
8C8C8C8C8C8C8E9 "sPRINTTABC13" C8C8C8C8C8C 
8C8C8C8C8C8E9 "sPRINTTABC23" CiC8C8C8C8C8C 
8C8C8C8C8C8C8 "sPRINTTABC43"FEC8C8C8C8C8C 
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8C8C8C8C8D5 - : FRINTTABC73" C8L8C8C8C8C8C8C 
8C8E9 " 

6320 PRINTTABC73 " C8C8C8C8C8C8C8C8C8C8 " :P 
PINTTABC73” FEC8C8C8C8C8C8C8C8C8E9 '' :PRINT 
TfìBC83" C8L8CeL8C8C8L8C8C8CS ":PRINTTABC83 
" C8C8C8C8C8C8C8C8C8C8 '' :PRINTTABC83" FEC8C 
8C8C8C8C8C8C8C8E9 ":PRINTTABC103"FEC8C8C8 
C8C8C9 " =PRINTTABC 1 1 3"C2C8C8C9'‘ 

6330 B$="MARCHE" :RETURN 
6380 J=4: RETURN 

6400 CURSORI 1 , 1 0 --PRINTCC, 43 " F5E9F5" :PRIN 
TCC, 1 3 T AB C 1 1 3'TE_ : ; : PRINTCC, 4 3 "C8C8E9" :PR 

INTCC, 1 3TABC123 " FEC8C8 ' 1 :PRINTCC,13TABC13 
3 " D8D8 ' 1 :RETURN 

6410 CURS0R3,4 :PRI NT "_C2_" :PRINTTAB C 33 " C8 
C2":PRINTTABC23" F5C8C8C2C2 
C2C2C8C8D5 " :PRINTTABC23" C8C8C8C8C8 _F 
5C8C8C9 " -'PRINT" C8C8C8C8C8C8C8C8E9 C2C8C8 
C8E9 ":PRINT" FE^8C8C8C8C8C8C8C8C8C8C8C8C8 
C8E9 "=PRINTTABC13" FEC8C8C8C8C8C8C8C8C8C5 
C8C8C8C8 " - PRINTTABC23" D8C8C8C8C8C8C8C8C8 
C8C8D5 " :PRINTTABC4 3 " FEC8C8C8C8C8C8C8C8C8 
C8E9 ” 

6420 PRINTTABC53" C1C8C8C8C8C8C8C8C8C8C8D 
5.' :PRINTTABC6 3" FEC8C8C8C8C8C8C8C8C8C8C8C 
8C2 ":PRINTTABC73" FEC8C8C8C8C8C8C8C8C8C8C 
8C8D5":PRINTTABC83" FEC8C8C8C8C8C8C8C8C8C 
8C8D5 ":PRINTTABC93" D8D8C8C8C8C8C8C8C8C8C 
£" : PRINTTABC123" C8C8C8C8C8C8C8C8 ":PRINTT 
ABC 123"D8 D8" 

6430 B$="LA2I0":RETURN 
6440 B$="LA2IO":RETURN 
6480 J=5 -RETURN 

6500 CURSORI 4,10:PRINTCC,43" C2C2 ";:PRINT 
re, n"E9" :PRINTCC,43TABC143’TE" ; : PRINTCC 
, 1 3 " C8C8E9 '" - PRINTCC, 4 3TABC153 " FEC9" :RETU 
RN 

6510 CURS0R6,5 :PRINT"C2C8C8" :PRINTTABC53 
C8C8C8C8E9 ' :PRINTTABC33 11 C8C8C8C8C8C8C8E 
.9":PRINTTABC13" C2C2C8C8C8C8C8C8C8C8C2 ":P 
RINTTABC13" C8C8C8C8C8CSC8C8C8C8C8C2 ”:PRI 
NTTABC13" C8C8C8C8C8C8C8C8C8C8C8C8E9 "=PRI 
NTTABC23" C8C8C8C8C8C8C8C8C8C8C8C8E3 " :PRI 
NTTABC33" C8C8C8C8C8C8C8C8C8C8C8C8C8C2 ":P 
RINT" C2C8C2C8C8C8C8C8C8C8C8C8C8C8C8C8C8E 
9." 

6520 PRINT" P8C8C8C8C8C8C8C8C8C8C8C8C8C8C 
8C8C8C9 " :PRINTTABC23" FEC8C8C8C8C8C8C8C8C 
628C8C8C8C9 " : PRINTTABC33" C1C8C8C8C8C8C8C 
8C9 FEC9 ’ 1 :PRINTTABC73" D8D8C8C8 " 

6530 B$="ABRU2EI": RETURN 
6580 J=4:RETURN 

6600 CURSORI 6,12=PRINTCC,43" F5C8 ":PRINTC 
C, 4 3 TABC 1 73 "_D8J :RETURN 

6610 CURSORI 1,5=PRINT' F5C8C2C2 " :PRINTTAB 
f103" F5C8C8C8C8E9 ”:PRINTTABC43" F5C8C2C2 
r-^CBCBCSCSCSCa 11 :PRINTTABC43 " C8C8C8C8C2C8 
C8C8C8C8C8D5 " :PRINTTABC33" C8C8C8C8C8C8C8 
C8C8C8C8C8C8 " 

6620 PRINTTABC23" C8C8C8C8C8C8C8C8C8C8C8C 
8C8 " :PRINTTABC23“ C8C8C8C8C8C8C8C8C8C8C8C 
8" :PRINTTABC2 3 ,, C8D8D8D8C8C8C8C8C8C8C8C8E 
5":PRINTTABC23" FED5 D8C8C8C8D8D8 ":PRIN 
TTABC93”D8" 


6630 B$="nOLISE":RETURN 
5680 J=2 : RETURN 

6700 CURSORI 5,12:PRINTCC,43"E9":PRINTCC, 
4 i T AR f 1 Fi 3 " C8C8C7 " : PRINTCC, 1 3TABC 1 63 "FEC8 
QS" : PRINTCC, 13TABC 183"FE'' : RETURN 
6710 CURS0R2,3:PRINT"C2 C2 C2 " :PRI 

NTTABC13" C1C8C8C8C8C8C2C2C2C8C8C8D5 ":PRI 
NTTABC13" C8C8C8C8C8C8C8C8C8C8C8C8C8C2 ":P 
RTNT" FFC8C8C8C8C8C9C8C8C8C8C8C8C8C8 ":PRI 
NTTABC13" FFC8C8C8C8C8C8C8C8C8C8C8C8C8C2C 
2C2 ":PRTNTTABC23" C8C8C8C8C8C8C8C8C8C8C8C 
8f.8C8C8C8D5 '' :PR I NTTABC 2 3 " CI C8C8C8C8C8C8C 
8C8C8C8C8C8C8C8C8D5 " 

6720 PRINTTABC33" C8C8D8C8C8C8C8C8C8C8C8C 

8C8P5 " :PRINTTABC6 3 '' FEC8C8C8C8C8C8C8C8C8C 
8." iPRINTTABC6 3 " C2C8C8C808C8C8C8C8C8C8C8 " 
:PRINTTABC63"D8. FEC8C8C8C8C8C8E9" =PRI 
NTTABC 123 " C8C8C8C8C8C8C8 ' 1 :PRINTTABC 1 23 "C_ 
1L3C8C8C8C8C8C8 - :PRINTTABC123" C8C8C8C8C8 
C8C8C8C8" =PRINTTABC123" FEC8C8C8C8C8C8C8C 
9 M :PRINTTABC153" FEC8C8C8C8" :PRINTTABC163 
" D8D8 " 

6730 B$="CAfiPANIA" :RETURN 
6780 J=5:RETURN 

6800 CURSORI 9,14 :PRINTCC,43" C8C2C2 ":PRIN 
TCC,13TABC193" C8C8C8C9 " :PRINTCC,13TABC19 
3 "FE" i -PRINTCC,43"C8C9" : RETURN 
6810 CURS0R4,5:PRINT" C2C2C2C8 ":PRINTTABC 
43" C8C8C8C8C8 ":PRINTTABC33" F5C8C8C8C8C8C 
2C2 " :PRINTTABC23 " C8C8C8C8C8C8C8C8C8E3 '' :P 
RINTTABC23" FEC8C8C8C8C8C8C8C8C8C2C2C2 " :P 
RINTTABC33" C8C8C8C8C8C8C8C8C8C8C8C8C8 " :P 
RINTTABC33" FEC8C8C8C8C8C8C8C8C8C8C8C8 ” :P 
RINTTABC43" FEC8C8C8C8C8C8C8C8C8C8C8C2 " 
6820 PRINTTABC53" FEC8C8C8C8C8C8C8C8C8C8C 
3D5":PRINTTABC63" C8C8C8C8C8C8C8C8C8C8C9 " 
-PRINTTABC53 " F5C8C8C8C8C8C8C8C8C8C8 ’ 1 =PRI 
NTTABC53 " C8C8C8C8C8C8C8C8 D8D8 ' 1 :PRI NTTAB 
C53" C8C8C8C8C8C8C8D5 ":PRINTTABC83" FEC8D8 
D8 " 

6830 B$="BASILICATA":RETURN 
6880 J=2:RETURN 

6900 CURSORI 8, 12:PRINTCC, 1 3 " C8C8C'9 " :PRIN 
TCC., 1 3TABC 1 83 " C8C8E9 " :PRINT CC, 43 TABC203 " 
D8D8 ";:PRINTCC,13" C8E9 ":PRINTCC, 1 3 T ABC23 
3 " FEC8E9 " :PRINTCC, 3TABC253 "C8'‘ :RETURN 
6910 CURSOR0,5:PRINT" C1C2C2C2C2C8C8 "=PRI 
NT" C8C8C8C8C8C8C9 ":PRINT" C8C8C8C8C8C9 " :P 
RINT" C8C8C8C8C8C8C2 " :PRINT"D8C8C8C8C8C8C 
8C8C2 ":PRINTTABC13" D8C8C8C8D8C8C8C8C8C8C 
22:PRINTTABC6 3" C8C8C8C8C8C8C8C8C2" : PRINT 
TABC73" FEC8C8C8C8C8C8C8C2 " 

6920 PRINTTABC83 "D8 CI C8C8C8C8C8C8C8C2 ' 1 : 
PRINTTABC1 13" CBC8D8C8C8C8C8C8E9 " :PRINTTA 
BC113"D8_ D8C8C8C8C8C8C8 ":PRINTTABC183"F 
EC8C8C8":PRINTTABC193" C8C8C8 ":PRINTTABC1 
93" 08C8D5 " 

6930 B$="PUGLIA":RETURN 
6980 J=5 : RETURN 

7000 CURSDR21,1 6 : PRINT C C, 4 3 " F5." :PRINTCC, 

13TABC203" FEC8E9 " : PRINTCC,3TABC213" C8C8 " 

:PRINTCC,13TABC203"F5C8" :PRINTCC,13TABC2 
03" C8C9 " : RETURN 

7010 CURS0R9,4:PRINT" C8D5 ":PRINTTABC43"C. 


8C8C2C2C8C8P5 ":PRINTTABC43" C1C8C8C8C8D5 " 
:PRINTTABC43" C1C8C8C8C8C8 ":PRINTTABC53"F_ 
EC8C8C8C8C8C8E9 ":PRINTTABC63" C8C8C8C8C8C 
8C8C8":PRINTT AB C6 3" C8C8C8C8C8C8C8C8 ":PRI 
NTTABC63" C8C8C8C8C8C8C8C8 " 

7020 PRINTTABC63" C1C8C8C8C8C8C8C8D5 ":PRI 
NTTABC73" C8C8C8C8C9 D8" :PRINTTABC53" C2C2 
C8C8C8" :PRINTTABC43" C1C8C8C8C8C8 ":PRINTT 
ABC 53" C8C8C8C8C8 ":PRINTTABC4 3" F5C8C8C8C8 
D8" : PRINTTAB C33" C2C8C8C8C9 ":PRINTTABC33" 
C8C8C8C8 ":PRINTTABC33" FEC8C8C3 " 

7030 B$="CALABRIA”:RETURN 
7080 J=3 :RETURN 

7100 CURSORI3,20 ; PR1NTCC, 1 3"C2C2 C2C2" 
-•PRINTCC., 1 3TABC 1 33 " C8C8C8C8C8C8C9 " :PRINT 
CC,13TABCT 53" FEC8C8C8 ":PRINTCC,13TABC173 

" FEC8 ":RETURN 

7110 CURSORI 5,8:PRINT" C2C8 ":PRINTTABC53" 
C2 F5C8C8C8 ”:PRINTTABC23" F5C8C8C8C8 
C8C8C8C8C8C8C8C8C3 ":PRINTTABC23" C8C8C8C8 
C8C8C8C8C8C8C8C8C8 ":PRINTTABC33" D8D8C8C8 


7120 PRINTTABC63" D8D8C8C8C8C8C8C8C8E9 ":P 
RINTTABC93" D8D808C8C8C8C8D5 ":PRINTTABC12 
3" FEC8C8C8 " 

7130 B$="SICILIA":RETURN 
7180 J=9:RETURN 

7200 CURS0R6,13:PRINTCC,13"C2":PRINTCC, 1 
3TABC43" C2C8C8 ":PRINTCC,13TABC43" CIC8C8D 
5_' :PRINTCC, 1 3TABC43" C1 C8C8 " :PRINTCC, 1 3TA 
BC43" C1C8C8 ":PRINTCC,13TABC43" FEC9 ":RETU 
RN v. 

7210 CURSDR8,3?PRINT" C2C8C2 ":PRINTTABC23 
"CI F5C8C8C8C8C2 ":PRINTTABC23"CI C2C 
2C8C8C8C8C8C2 ":PRINTTABC23" C8C8C8C8C8C8C 
8C8C8C8C8"=PRINTTABC23"C8C8C8C8C8C8C8C8C 
8C8C8D5 ":PRINTTABC33" C8C8C8C8C8C8C8C8C8C 
8C8 ’’ :PR INTTABC33 " C1 C8C8C8C8C8C8C8C8C805 " 
:PRINTTABC43" CBC8C8C8C8C8C8C8D5 " :PRlNTTA 
BC4 3" C8C8C8C8C8C8C8C8C8 ":PRINTTABC33 " C1 C 
8C8C8C8C8C8C8C8C8 " 

7220 PRINTTABC43" C1C8C8C8C8C8C8C8C8 ":PRI 
NTTABC43" C1C8C8C8C8C8C8C8C8 '‘ :PRINTTABC43 
" C8CBC8C8C8C8CBC8C8 ":PRINTTABC33"C8C8C8C 
8C8C8C8C8C8D5 ":PRINTTABC33" C1C8C8CBC8C8C 
8C8C8D5 " iPRINTTABC33" C1C8C8C8C8D8D8C8C8D 
5." :PRINTTABC43 " C8C8C8C8 D8." :PRINTTABC4 
3" C1C8C8D8" 

7230 B$="SARDEGNA":RETURN 
7280 J=4 :RETURN 
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TRIKER 


Triker è il poker giocato con tre carte: le 
combinazioni da realizzare sono il TRIS, la 
COPPIA o la carta più alta. 

Dopo l'iniziale presentazione il computer vi 
informa su quanti soldi avete a disposizione e 
vi distribuisce le carte. 

Dopo la vostra puntata, che non può essere 
inferiore a 100, vi viene chiesto quale carta 
eventualmente volete cambiare; digitate 1, 2 o 
3 seguendo l’ordine posizionale, o 0 se non 


0 W=500 

1 FORT = 1TO6000 : NEXTT : P0KE36879,27 : PR INT 

2 FORA =2T046STEP2 

3 FORT=1TO400:NEXT 

4 P0KE36867 ,A 

5 primt " jaasaam" 

6 pr i nt " mm m m m mm. mm." 

7 PRINT" 1 III* 1 115" 

r r\ im i {M m* m. wm. wmm. 

9 PRINT" 1 U liti m. " 

10 print" m wm.mm. mmm. m m n 

11 NEXTA 

12 FORT =1TO3000!NEXT 

13 V=0:B=0:N=0:M=0 

18 E=0:R = 0:T=0:Y=0:U=0: I=0 : 0=0 :P = 0:A = 0: ! 
= 0 

19 V =0 : B = 0 ! N=0 : M=0 
25 REM POSTA 

30 P0KE36879.104 i PR INT" JMMBHD ISPONI DI 
40 I FU1< 100THENPR INT "BANCAROTTA ! " : PR INT 
50 GETA$:IFA$=""THEN50 
52 REM CARTE VIC 

55 S=INTCRND< 1 ) *5> + 1 

56 D=INT<RND<1>*5>+1 

57 F =INT<RND <1)*5) + 1 
60 GOSUB1000 

65 REM CARTE,PUNTATA E CAMBIO DI UNA 
70 X =INT(RND <1)*5) + 1 
7 1 PRINT " /-\" 

72 PRINT " | "X" 1" 

73 PRINT " \_/":IFE=2THEN110 

74 Y=INT<RNDC1>*5>+1 

75 PRINT" irmmiM/ - v 

76 PR INT" mimi "Y" r 

77 PRINT » HH— IN_/" 


volete nessun cambio. 

Dopo aver scoperto le carte di Mister VIC (il 
vostro avversario!!), vengono analizzate le 
combinazioni e decretato il vincitore. 

Ricordate: con meno di 100 si ha bancarotta!! 
N.B.: Premendo S il programma riparte 
azzerando tutte le variabili; premendo N si 
agisce su un registro del sistema operativo che 
azzera tutte le funzioni del computer come se 
fosse stato appena acceso. 


a" : IFUJ< >500THEN 13 


=0:D=0:F=0:G=0:H=0:J=0:K=0:L=0:Z=0:X=0SC 


L I RE " UJ 

SBUN’ALTRA SFIDA?":GOTO3000 


46 





























































78 

86 

31 

82 

83 

84 

85 

C -"T- 
O w 

37 
80 
100 
102 
1 10 
1 15 
120 
125 
130 
140 
160 
170 
180 
180 
192 
195 
197 
280 
210 
220 
490 
500 
50 1 
5 10 
5 1 1 
515 
530 
540 
550 
899 


IFE=2THEN110 
K=INTCRND<1>*5)+1 
PR INT"| 

PRINT"|| 


~\ H 


■HMMWI "K" |" 

PR I NT 11 »WM»IWHr _/" 

IFE =2THEN110 
INPUT" PUNTATA " ; Q 
I FQ < 100THENPR INT"tX3" : G0T085 
IFQ >UITHENPR INT "dJ" :G0T0S5 

INPUT " C33UALE VUO I CAMB I ARE " ; P : I FP >3THEN90 
IFP=0THENPR INT"CH3 M : GOTO 1 10 
E=2 ! PR INT"CH3" * ONPGOTO2000,74,80 
PR INT" [MUTI "S » >BBBI 11 0 " BH "F 

REM ANALISI COMBINAZIONI 
IFX = YANDY=KTHENPRINT"SMSBWTRIS" :H=3 
IFX = YANCY< >KTHENPR INT" MMMBBC OPP IA 11 :H=2 
IFY=KANDK< >XTHENPR I NT " XMWnan nPP T " :H=2 
IFK=XANDX< >YTHENPR I NT " HSBHIBICOPP IA " :H=2 
IFS =DANDD =FTHENPR I NT " r 1111111111 IT T T TR IS " :0=3 
IFS=DANDD< >FTHENPR I NT " mi IMITIMI II OPP I A " :0=2 
IFS=FANDF< >DTHENPR INT " [MIIIIIMI IMP OPPI A" :0 = 2 
I FD = FANDF < >STHENPR INT M CTTT I l'IT~111ITTL OPP IA " :0=2 
I FX <>YANDX <>KANDY<>KTHENGOTO500 
IF3 <>DANDD <>FANDS<>FTHENG0T0510 
REM VINCITORE 

IFH >OTHENFORT=1TO5000:NEXT: PR INT"ÌJ4AI VINTO 
IFO >HTHENFORT= 1TO5000 : NEXT: PR INT"LJHA I PERSO 


IFO=HTHENFORT= 1TO5000 :NEXTSPRINT"LJHA I 
REM CARTA PIU'ALTA 
I FO >0ORH>0THEN200 

I NPUT " BISSSHB)3 ARTA P IU ' ALTA : TUA ” ; Z 
I FO >0ORH >0THEN200 
INPUT"CARTA PIU*ALTA : SUA";C 
REM VINCITORE 

IFZ >CTHENFORT=1TO4000:NEXT:PRINT"LHAI 
IFC >ZTHENFORT =ITO4000 :NEXT:PRINT"LHAI 
IFC = Z THENH =0 : GOTO220 
REM DISEGNO MISTER VIC 


PERSO 


"Q 

"Q 

"Q 


:W=U+Q 
: LI=LI-Q 
: LI=LI-Q 


: GOTO 1 
s GOTO 1 
: GOTO 1 


VINTO 

PERSO 


: W=UJ + Q 
: W = Li-Q 


: GOTO 1 
: GOTO 1 


1000 

PR INT"J" 


100 1 

PRINT" 

■a 

10 10 

PRINT" 

a i. .a ■" 

1020 

PRINT" 

■a ! 3 *i a 

1030 

PRINT" 

■ 1 1 " 

1040 

PRINT" 

\ yf II 

1850 

PRINT" 

/ “ \” 

1060 

PRINT" 

Il II" 

1070 

PRINT" 

I I i 1 " 

1080 

PRINT" 

i i aia i r 

1080 

PRINT" 

i i aca i r 

1 100 

PRINT" 

i i a a i r 

1101 

PRINT"ua 


1 102 

PR INT "aia 


1 103 

PR int" mai 


1 104 

print" da— 


1110 

RETURN 


2000 

PR INT "Ilin 

":GOTO 70 

3000 

GETA$:IFA^ 

=""THEN 3000 

3001 

IFA$="S"THENRUN 

3002 

IFA$=< >"S" 

THENSYS 64802 
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SPECTRUMAN 


Versione «spectrumiana» dell’arcinoto 
PAC-MAN. Quanti punti riuscirete a fare prima 
di essere «mangiati» da qualche fantasmino? 




R 

R 

R 

R 

R 

R 

L=i 

L 

f 

= 3 

ER 

R 

■ F 


EI-1 

EH 

EM 

EH 

em 

EM 

o 

ET 
= 1 

2 


* ZX SPECTRUMAN 

* List 
■**■*■****■**■>!■■*•**■*■*■**■*•*•-*•* 

SUB 9 000: LET 3 =0 : LET 
C =4- : LET d = 18 : LET e = 
4- : LET g=10: LET h = 1S : 
LET U$="G": LET j$="R" 
: PRPER 2 : INK 2 : CLS 


OR L=1 TG 2 0 ST E P 2 : B E E 
N EXT L : FOR L. =2 0 TO 1 ST 
EEP .1,l: NEXT l 
X M K$ (20,27) 

ET k * < 1 ) = “ 


* 

* 

•* 


b 

4- : 
L 


P 

EP 



9 5 

LET 

. . 

. 1 . 

110 

LET 


H.j 

120 

LET 

HI. ■ . 


130 

LET 

. s . . s 

■ l.l 

14-0 

LET 



k^ i: 15 ) = 

ktt is) = 

( 17) = 

(13) = 

(19) = 


2 10 

LET k $(20) =” 


■ ■ 

220 

P R I NT : 

FOR L =1 T G 

20 : INK 

2: PRINT 

k $ ( l ) : N E X 

T 1. 


3 00 

LET k * ( h 

. i ) ss " " 



305 

IF R > =97 

S THE N CL S 

: LET 

a = 

0 : B O R D E R 2 : 

PRPER 2 : INK 2 : 

CLS 

: P H P E R o : G O T O 3 



3 10 

IF INKEY 

$ = THEN 

GO TG 

3 5 5 

3 15 
B ' ‘ 

IF INKEY 

$ = ‘ 1 5 ‘ ' THEN 

LET J 

$ = " 

3 2 0 

IF INKEY 

$ = ‘ * 6 ' ' THEN 

LET ..i 

$ = " 

C ’ ' 

3 25 
D •' 
330 

IF IN KEY 

$ = ••■? " THEN 

LET J 

* = " 

IF INKEY 

$ = • 1 S ' ’ THEN 

LET ..i 

$ = •■ 

R “ 

355 

PRINT RT 

h , i ' ' " 



360 

IF j $ = ' ' D 

■ ’ RND k $ ( h 

- 1 , i ) < 

> "■ 

•' THEN LET h = 

h - 1 



370 

IF J $ = ' 1 R 

11 R N D k * •: h, 

, i + 1 ) < 

> "■ 

’■ THEN LET i = 

i + 1 : IF i > 

2 S THEN L 

ET i 

~ 2 




“J7 cr t 

I F J £ a " C 

• ‘ R N D k $ C h 

+ 1 , i ) < 

> "■ 

*• THEN LET h = 

h + 1 : IF h > 

19 THE N L 

ET h 

~ 2 




3 0 0 

IF j$r"B 

” AND k $ ■: h 

, i - 1 ) < 

> "■ 

•• THEN LET i = 

i - 1 : IF i < 

2 THE N 

LE 

T i = 

2b 




385 

IF h<2 THEN LET h= 

20 


3 90 

PRINT RT 

H , I : IN K 

0 v % 


3 95 

IF k $ ( h , 

i)” THEN LET 

a = a 

+ 1 : 

PRINT RT 

0,1 P U NT I 

" a : 

BEE 

P .001,50 
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t 



4-0 0 XF K $ (h . i ) ="S" THEN L ET a =a 
+50: PRINT AT 0.0;"PUNTI ; a : GO 

S LI B 7000 


4-0 5 

PRINT AT b . g ; 

k $ •: 

b 

% 

g) : IF 

IN 

T ■: R N D * 2 

j + C B 

;• H !■ A N D R 

$ 

x 

b - 1 , g :■ • 

: > 

• • 

■ ' • THE N 

LET 

b = b - 1 







4-10 

IF 

I NT 

C R N D * 2 

:• + c 

B 

< 

H ;i A N D 

R 

$ 

•: b +1 

, g :■ < 


THE N 

LET 


t. 

= b + 1 



4-2 0 

IF 

I NT 

C R N D * 2 

+ c 

G 

> 

I :■ A N D 

K 

$ 

c b . d 

— i :« < 

> 

THE N 

LET 


g 

= 9-1 



4-2 5 

IF 

INT 

< R N D * 2 

j + C 

i 


I :i A N D 

R 

$ 

( b , g 

+1 :■ < 

.. H .. 

THE N 

LET 


g 

= g +1 




4-30 PRINT AT b.g; INK 1; "E" 

4-3 5 PRINT AT H . I : INK 0 ; .j $ 

4-4-0 IF ( b = h A N C> g = i ) O R ( c = h A N 

D e = i :« o r •: d = h a n d f = i ) thè n p r i 

NT AT h, . i ; FLASH 1; J $ : FOR i. =-20 
TG -4-0 STEP -1.5: BEEP .1,1: NE 
XT I. : STOP 

4-4-5 PR INT AT c , e K $ ( c , e J : IF IN 

T C R N D -*2 5 -+- C i_: > H '! M N D K$ < > 1 ’ 

■' THEN LET C = C - 1 


4-5 0 

IF INT 


C R N D * 2 

:■ + C C < 

h :■ 

A N D 

R $ 

c c + 1 

, e <>"■ 

1 ' 

THE N 

LET C 

= r 

+ 1 


455 

IF INT 


C R N D * 2 

:• + ce > 

I r 

A N D 

R $ 

t c . •=• 

- i ) < > " ■ 

' ' 

THE N 

LET e 

~ »=• 

- 1 


460 

IF INT 


C R N D * 2 

) + ( E i 

i :■ 

A N D 

R * 

C c . e 

+ i :• < > " ■ 

' * 

THE N 

LET e 

— 

+ 1 
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PR INT 

ht c , e ; 

I N K 

2 ; 

"E " 


470 

P R I NT 

AT d . f ; 

R $ (d . 

f \ 

: IF 

IN 

T ( R N D ■* 2 5 +l 

D 

> H) AND RSC 

d - 

1 .. f :> 

< > " 

■" THEN LET 


d = d - 1 
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IF INT 


C R N D * 2 

:i + c d e h j 

A N D 

R $ 

( d + 1 

, f < > "■ 

• ' 

THE N 

LET d 

= d 

+ 1 


480 

IF INT 


C R N D * 2 

'.i + ( F ;■ 

i :i 

A N D 

R * 

Cd , f 

-1 ;• < > ■ 

* • 

THE N 

LET f 

= f 

- 1 


4- 8 5 

IF INT 


C R N D * 2 

!i + ( F < 

i ;« 

A N D 

R $ 

Cd , f 

+ i ;i " ■ 

• * 

THE N 

LET r 

= f 

+ 1 


4y0 

PRINT 

AT d, f; 

IN K 

3 ; 

.. E .. 


4-9 5 

G O T O 

30 0 





7000 

BEEP . 

1 

— ;=• 





700 1 

R ET IJ R N 







8 9 ■=■ U 

•u O T u 

1 






90 0 0 

D AT A 0 

> 

BIN 01000010, 

B IN 

111 


00111,BIN 

BIN 11111111 ,BIN 01111110. BIN 0 0 
111100 

90 10 DATA BIN 00 111100, BIN 0 1111 

110, BIN 11111100, BIN 11111000, BI 

N 11111000,BIN 11111100,BIN Olii 

1110.BIN 00111100 

9020 DATA BIN 00111100.BIN 01111 

1 10 , BIN O 0111111 . BIN 00011111 .BI 

N 00011111,BIN 00111111.BIN 0Ì11 

1110.BIN 00111100 

'=• 0 2 5 D AT A B I N 00111100.BIN 01111 

1 10 , B I N 1 1 1 1 1 1 1 1 . B IN limili .BI 

N 11111111, BIN 11100111, BIN 0i0 0 

00 10,0 


9 0 3 0 D AT A BIN 01111100.BIN 11111 
1 1 0 , B I N 10010010 . BIN 10010010 . BI 
N 11111110,BIN 11111110,BIN 1Ì11 
1 1 1 0 , B I N 10 10 10 10 

9032 DATA 0,0.BIN 000110O0.BIN 0 
0111100,BIN 00111100.BIN 0001100 
0 , 0.0 


9034- DATA BIN 00111100, BIN 01111 
1 1 0 , B I N 11111111, BI N limili, BI 


N 1 1 



1 , E 

IN 1 i 1 



.BIN 0Ì11 

1110 

, B I N 


00111100 





9 0 3 F. 

DAT A 

24 

,60,12 

tr. 

,219 

1— 1 

19,255, 

2 19 . 

14-5 








9040 

R E S 

T 

Ù R E 

900 0 





9 0 4-5 

F O R 


f =0 

T O T : 


READ 

a 

: P O K E 

U S R 

" D ' * + 

e" 

. a : 

NEXT 

f 




9 0 5 0 

F G R 


f =0 

T O ~? : 


REA D 

a 

: P O K E 

IJ S R 

" H " + 

f 

. a : 

NEXT 

f‘ 




9 0 6 0 

F O R 


t =0 

T O : 


READ 

a 

: POKE 

IJ S R 

1 ’ B " + 

f 

. a : 

NEXT 

f 

FrERD 



9 0 6 5 

F 0 R 


f =0 

T O ~7 : 


a 

: P O K E 

U S R 

+ 

f 

. a : 

N E XT 

f 




9070 

F O R 


f =0 

T O : 


REA D 

a 

: POKE 

IJ S R 

" E " + 

f 

. a : 

N E XT 

f 




9075 

F O R 


f =0 

T O ~? : 


READ 

a 

: POKE 

1J S R 

" S " + 

f 

. a : 

NEXT 

f 




y07B 

F O R 


f =0 

T ù ~? : 

- 

READ 

a 

: P O K E 

U S R 

1 ' G " + 

f 


N E XT 

f 





90S0 RETURN 
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mmmu 

LE MINE 

diGianni Martini 


Il programma 4 è stato ideato per la 
configurazione base del TEXAS TI-99/4A. 
Sullo schermo viene visualizzato un rettangolo 
nel cui interno compaiono, disponendosi 
casualmente, 20 terribili mine. 

Avete poco tempo a disposizione per 
imprimere nella mente la loro dislocazione, 
dopo di che scompariranno. 

Usando i tasti S, E, D e X dovete guidare il 


carro armato fino a raggiungere l'angolo in 
basso a destra dello schermo, cercando di 
evitare di «saltare» sulle mine o di urtare i 
confini del campo minato. 

Il punteggio iniziale è di 40 e viene 
decrementato di 1 ad ogni spostamento del 
carro armato. Se riuscite ad arrivare al 
traguardo, avrete un BONUS di 40 punti e 
passerete al quadro successivo. 



TI 99/4A:LE MINE:(GIOCO) 
DI GIANNI MARTINI 


100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 X=5 
220 Y=7 


******* ** ********** * 

* GIOCO LE MINE * 

* MEMORIA 8800 BIT * 

* OTTOBRE 1984 * 
******************** 

* GIANNI MARTINI * 

* * 
* * 

* SANREMO IMPERIA * 

* * 
******************** 


230 
240 
250 
DEL 
260 
270 
280 
290 
300 
310 
320 
330 
340 


DIM MXX(20) 

DIM MYY(20) 

REM * DEFINIZIONE CARATTERI 
TITOLO INIZIALE * 

CAL_L CLEAR 

CALL CHAR(98,"0103050911214181") 
CALL CHAR(99,"8142241810204080") 

CALL CHAR(100,"8080808080808080") 
CALL CHAR(101,"FFOOOOOOOOOOOOOO") 
CALL CHAR(102,"FF80808080808080") 
CALL CHAR(103,"01010101010101FF") 
CALL CHAR(104,"FFO1010101010101") 
CALL CHAR(105,"808080S0808080FF") 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


CHAR(106,"FF03050911214181") 
CHAR(107,"8040201008040201") 
CHAR(108,"0102040810204080") 
CHAR(109,"8182848890AOCOFF") 
CHAR(110,"0101010101010101") 
"FF02040810204080") 
* TITOLO INIZIALE * 


INSTRUMENTS TI-99/4A" 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL CHAR(111 
REM 
Z= 1 
ZZ=3 

BB*="TEXAS 
GOSUB 2640 

Z Z=9 
BB$=" 

GOSUB 
Z=4 
BB*=" 

GOSUB 
Z=5 

BB*="1 1 n 
GOSUB 2640 
Z=6 

BB*="-fh n 
GOSUB 2640 
2~7 

BB*="dn n 
GOSUB 2640 
Z=8 

BB*="dn n 
GOSUB 2640 


lej 

2640 

1 In 
2640 


1eeee j" 


In" 


1 1 


•feeeh ld" 


ni d" 


dnoeo 1 
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650 

Z=9 

890 

GOSUB 2640 



660 

BB$="dn led eh lej" 

900 

Z = 17 



670 

GOSUB 2640 

910 

BB*="d n 

oeld kdn dnoeo 1" 

680 

Z = 10 

920 

GOSUB 2640 



690 

BB*="dn 1 d ni In" 

930 

Z-18 



700 

GDSUB 2640 

940 

BB$="d n 

•f h d 

n d eh lej" 

710 

Z=11 

950 

GOSUB 2640 



720 

BB$="dnl ldnoe 1 1" 

960 

Z = 19 



730 

GOSUB 2640 

970 

BB*="dnkldn 

d n d n k 

n d ni In" 

740 

ZZ=3 

980 

GOSUB 2640 



750 

Z = 12 

990 

Z=20 



760 

BB^=" lej d eeh d eeh bleeeej" 

1000 

BB^="dn dn 

dn dn 

k n dnoe 1 1" 

770 

GOSUB 2640 

1010 

GOSUB 2640 



780 

Z = 13 

1020 

Z=21 



790 

BB*=" 1 llcd nld nll In" 

1030 

BB$="dn ldn 

dn dn 

ldn d eeh 1" 

800 

GOSUB 2640 

1040 

GOSUB 2640 



810 

Z=14 

1050 

7 =?o 

*— iL j— 



820 

BB^="1 111 ooeoo oooeol 1 1" 

1060 

BB^="dnl dnldnldnl 

dnld ni" 

830 

GOSUB 2640 

1070 

GOSUB 2640 



840 

Z=15 

1080 

Z=23 



850 

BB^="-fhl fh -fh -fhl -fh feeeh ld" 

1090 

BB$="ee ee 

ee ee 

ee eeeee" 

860 

GOSUB 2640 

1100 

GOSUB 2640 



870 

Z = 16 

1110 

Z=24 



880 

BB^="d kl n dnld k dn d ni d" 

1120 

12=6 




1130 BB$="* GIANNI MARTINI *" 

1140 GDSUB 2640 

1150 REM * COLORI TITOLO * 

1160 FOR R=3 TO 15 
1170 CALL SCREEN(R) 

1180 CALL COLOR<10,R+l,1) 

1190 CALL COLOR(9,R+l,1) 

1200 CALL SOUND(500,110+(R*10),2,120+(R*15),2,130+<R*20),2,-4,2) 

1210 NEXT R 

1220 CALL SCREEN(2) 

1230 CALL COLOR(9,16,1) 

1240 CALL COLOR(10,16,1) 

1250 FOR W=1 TO 20 

1260 CALL SOUND(100,110,2,160,2,220,2,-8,2) 

1270 NEXT W 

1280 CALL SCREEN(4) 

1290 REM ** REGOLE GIOCO ** 

1300 CALL SCREEN(6) 

1310 CALL CLEAR 

1320 FRINT " LE REGOLE DEL GIOCO 

********* 

**************" 

1330 FRINT " 

IL GIOCO CONSISTE NEL PERCORRERE 

, ALLA GUIDA DI UN CARRO ARMATO" 

1340 FRINT " UN PERCORSO ALL' INTERNO 
DI UN CAMPO MINATO 


1350 FRINT " PER MUOVERE IL CARRO ARMATO 
SI DEVONO USARE I TASTI 

S = SINISTRA" 


1360 FRINT 
D = DESTRA 
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E = SU'" 

1370 FRINT " 

X = GIU'" 

1380 FOR AA=110 TO 440 STEP 110 

1390 FOR DB=1 TO 30 STEP 3 

1400 CALL SOUND(-100,AA,DB,AA+110,DB,AA+ 

220,2,-8,DB) 

1410 FOR TT =1 TO 11 
1420 NEXT TT 


1430 CALL SOUND(-100,1500-(AA+110),DB,15 

00-(AA+220),DB,1500-(AA+330),DB,-1,DB) 

1440 FOR TT =1 TO 11 

1450 NEXT TT 

1460 NEXT DB 

1470 NEXT AA 

1480 CALL SCREEN(4) 

1490 REM * INIZIO GIOCO * 

1500 CALL CLEAR 
1510 PUN=40 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 



QUA= 1 

CALL CHAR(129,"1842249999244218") 
CALL CHAR(152,"FFFFC3C3C3C3FFFF") 
CALL CHAR(130,"FCF87FC8C87FF8FC") 
CALL CHAR(131,"55AA55AA55AA55AA") 
CALL CHAR(132,"00E9AAACAAA9E9") 
REM ^FORMAZIONE CAMPO* 

CALL COLOR(16,13,5) 

CALL HCHAR(3,6,152,22) 

CALL HCHAR(20,6,152,22) 

CALL HCHAR(5,3,152,4) 

CALL HCHAR(4,6,152) 

CALL VCHAR(6,3,152,3) 

CALL HCHAR(9,3,152,4) 

CALL VCHAR(10,6,152,10) 

CALL HCHAR(20,6,152,22) 

CALL HCHAR(19,27,152) 

CALL HCHARQ8,27,152,4) 

CALL VCHAR(15,30,152,3) 

CALL HCHAR(14,27,152,4) 


CALL VCHAR(4,27,152,10) 
1 = 1 


1740 ZZ=3 


1750 BB*="TEXAS INSTRUMENTS TI-99/4A" 
1760 GOSUB 2640 
1770 Z=22 

1780 BB$="PUNTI QUADRI * GIOCO *" 
1790 GOSUB 2640 
1800 Z=24 

1810 BB$="40 1 * LE MINE *" 

1820 GOSUB 2640 

1830 REM * GENERAZ MINE * 

1840 CALL SOUND(222,222,2,333,2) 

1850 CALL HCHAR(16,28,132) 

1860 RANDOMIZE 
1870 FOR AA=1 TO 20 
1880 MX=INT(20*RND)+7 
1890 LET MXX(AA)=MX 
1900 NEXT AA 
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1910 FOR AA=1 TO 20 
1920 MY®INT(16*RND>+4 
1930 LET MYY(AA)=MY 
1940 NEXT AA 
1950 FOR AA=1 TO 20 

1960 CALL HCHAR(MYY < AA),MXX(AA) ,129) 

1970 CALL SOUND(200,110*AA,2,3500-<100*AA),2,300,2,-3,2) 
1980 NEXT AA 

1990 FOR AA=1 TO 800 STEF 7 

2000 CALL SOUND(70,AA+110,(AA+33)/30,200,2,300,2) 

2010 NEXT AA 

2020 FOR AA=1 TO 16 

2030 CALL HCHAR(3+AA,7,32,20) 

2040 CALL SOUND(-500,110+AA,2,220*AA,2,330*AA,2,-8,2) 
2050 NEXT AA 

2060 CALL SOUND(444,111,2,222,2) 

2070 CALL HCHAR(Y,X,130) 

2080 IF PUN=0 THEN 3120 

2090 REM * MOVIMENTO * 

2100 CALL KEY(0,KY,ST) 

2110 CALL S0UND(-500,110,15,120,30,130,30,-8,1) 

2120 IF ST—0 THEN 2100 

2130 IF KY=83 THEN 2170 

2140 IF KY=68 THEN 2210 

2150 IF KY=69 THEN 2250 

2160 IF KY=88 THEN 2290 ELSE 2100 

2170 XHH=X 

2180 YHH=Y 

2190 X=X-1 

2200 GOTO 2330 

2210 XHH=X 

2220 YHH=Y 

2230 X = X + 1 

2240 GOTO 2330 

2250 XHH=X 

2260 YHH=Y 

2270 Y=Y—1 

2280 GOTO 2330 

2290 XHH=X 

2300 YHH=Y 

2310 Y=Y+1 

2320 REM * CONTROLLO CONFINI TRAGUARDO E MINE * 

2330 CALL GCHAR(Y,X,SSS) 

2340 IF SSS=152 THEN 2490 
2350 IF SSS=132 THEN 2710 
2360 FOR AA=1 TO 20 

2370 IF Y=MYY(AA)THEN 2380 ELSE 2390 
2380 IF X=MXX(AA)THEN 2490 ELSE 2390 
2390 NEXT AA 
2400 PUN=PUN-1 
2410 BB*=STR*(F'UN> 

2420 LET Z=24 
2430 LET Z Z=3 
2440 CALL HCHAR(24,3,32,6) 

2450 GOSUB 2640 

2460 CALL HCHAR(YHH,XHH,32) 

2470 GOTO 2070 

2480 REM ** ESPLOSIONE ** 


53 























2490 CALL HCHAR(YHH,XHH,32) 

2500 CALL HCHAR(Y,X,130) 

2510 CALL SOUND(2000,110,20,120,20,3500,30,-8,2) 


2520 CALL HCHAR(Y-l,X-l,131,3) 
2530 CALL HCHAR(Y+l,X-l,131,3) 
2540 CALL HCHAR(Y,X-l,131) 

2550 CALL HCHAR<Y,X+l,131) 

2560 FOR FF=3 TO 15 

2570 CALL COLOR(13,FF,FF-1) 

2580 CALL COLOR(16,FF+1,FF-2) 

2590 CALL SCREEN(FF) 

2600 NEXT FF 

2610 CALL SCREEN(11) 

2620 CALL COLOR(13,2,11) 

2630 GOTO 3120 

2640 REM * GOSUB SCRITTURA * 

2650 FOR ASA=1 TO LEN (BB$) 

2660 LET BSB=ASC(SEG*(BBS,ASA,1)) 
2670 CALL SOUND(50,300,2) 

2680 CALL HCHAR<Z,ZZ+ASA,BSB) 

2690 NEXT ASA 
2700 RETURN 

2710 REM * NUOVO QUADRO * 

2720 CALL HCHAR(YHH,XHH,32) 

2730 CALL HCHAR(16,28,130) 

2740 PUN=PUN+40 
2750 QUA=QUA+1 
2760 Z=9 
2770 ZZ=8 

2780 BB$="****************" 

2790 GOSUB 2640 
2800 Z = ll 
2810 ZZ = 11 

2820 BB$="B R A V 0." 

2830 GOSUB 2640 
2840 Z=13 
2850 ZZ=9 

2860 BB*="VINCI 40 PUNTI" 

2870 GOSUB 2640 
2880 Z=15 
2890 ZZ=10 

2900 BB*="NUOVO QUADRO" 

2910 GOSUB 2640 
2920 Z=17 
2930 ZZ=8 

2940 BB$="**********-**-****" 

2950 GOSUB 2640 

2960 FOR YY=1 TO 500 

2970 NEXT YY 

2980 FOR YY=9 TO 18 

2990 CALL HCHAR(YY,9,32,16) 

3000 NEXT YY 
3010 Z=24 
3020 ZZ=3 
3030 BB$=STR*(PUN> 

3040 GOSUB 2640 

3050 ZZ = 11 

3060 BB$=STR$(QUA) 


3070 GOSUB 2640 
3080 X=5 
3090 Y=7 
3100 GOTO 1830 

3110 REM * ISTRUZIONI FINE PARTITA * 

3120 FOR YY=4 TO 19 

3130 CALL HCHAR(YY,7,32,20) 

3140 NEXT YY 
3150 X=5 
3160 Y=7 

3170 BB*="FINE PARTITA" 

3180 Z=6 

3190 ZZ=9 

3200 GOSUB 2640 

3210 BB^="TUO PUNTEG Q " 

3220 ZZ=8 

3230 Z=8 

3240 GOSUB 2640 

3250 BB$="RECORD Q " 

3260 Z=10 

3270 GOSUB 2640 

3280 BB$=STR$(QUA) 

3290 Z=8 

3300 ZZ=23 

3310 GOSUB 2640 

3320 IF QUACQQQ THEN 3340 

3330 LET QQQ=QLJA 

3340 BB^=STR^(QQQ) 

3350 Z=iO 
3360 GOSUB 2640 
3370 Z=13 
3380 11-9 

3390 BB^="PREMERE :" 

3400 GOSUB 2640 
3410 Z=15 
3420 ZZ=8 

3430 BB^-"1 PER CONTINUARE" 

3440 GOSUB 2640 
3450 1—17 

3460 BB^="2 PER USCIRE " 

3470 GOSUB 2640 

3480 CALL HCHAR(22,4,61,26) 

3490 Z=24 
3500 Z Z=3 

3510 BB^="** COSA SCEGLI ? ** *" 

3520 GOSUB 2640 
3530 CALL KEY(0,K,S) 

3540 IF S=0 THEN 3530 
3550 CALL HCHAR(24,26,K) 

3560 FOR W=1 TO 300 
3570 NEXT W 

3580 IF K=49 THEN 1490 

3590 IF K=50 THEN 3600 ELSE 3530 

3600 CALL CLEAR 

3610 END 
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I POMPIERI 


di Marco Michieli 

Ispirato ad un notissimo «pocket-game», è 
questo un gioco che richiede riflessi più che 
pronti. 

L'eroe del giorno è un pompiere che deve 
cercare di salvare gli abitanti di un palazzo in 


fiamme, i quali, spinti dal panico, hanno iniziato 
a gettarsi dalle finestre. 

Man mano che il palazzo brucia il gioco 
diventa, naturalmente, più difficile. 

Vi muovete mediante i tasti cursore 5 e 8. 



1 REM *********************** 


o dfm *■ * 

3 REM * I POMPIERI * 

4 REM * * 

5 REM * Z X - © 1 1 6 K * 

6 REM * * 

7 REM * BY MARCO MICHIELI * 

S REM * * 

9 REM * L I 3 T - STRIKE * 

10 REM * * 


11 REM *********************** 


12 REM 

15 GOSUB 500 

20 CLS 

3© LET X =20 

4-0 LET Y=23 

4-1 LET C-l 

60 FOR T0 2© 

7© PRTNT FfT Ft.,0; 
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NEXT R _ 

PRINT RT 19,24; "T3P" 

PRINT RT 20,24-; " M " 

FOR G=1 TO 20 
PRINT RT 4-,20; "FUOCO" 

PRINT RT 4-/20; " 

NEXT G 
REM 

PRINT RT X,V; "®" 

LET B = INT (RND*17) 

FOR 0=0 TO 20 
PRINT RT X,Y;-r 
PRINT RT 20,0;^1 

PRINT RT 0,0; "| 

PRINT RT 0,B;"B" 

PRINT RT 0-1,0; "1 

■Bw 

LET Y=Y + (INKEY$a , *8“) - CINKEY 
) 

NEXT O 

IF BOY THEN GOTO 290 
IF 019 THEN GOTO 350 
FOR R=1 TO 10 
PRINT RT C-2,0;" 


220 PRINT RT C-2,0 




130 NEXT R 

24-0 PRINT RT C-1,0;'* 

250 PRINT RT C-2,0;** 

« » 

260 LET E=INT CRND*17+1> 

261 PRINT RT C-2,E;"M“ 

270 LET C*C+1 
280 GOTO 90 
300 PRINT RT 20,B;"| 

310 PROSE 150 
320 CLS 

330 PRINT RT 10,5;"C R D U T O. 

•t 

*331 PRINT RT 12,5;"NE HRI SALUA 
TI ";C-1 

332 IF C — 1> 0 RND C-l<5 THEN PRI 
NT RT 14-/5; "TI SEI BRUCIATO. . . " 

333 IF C —1>5 RND C-i<10 THEN PR 
INT ,,"SEI UN POMPIERE DI I GRRD 

Q m > •» 

334- IF C — 1 >10 RND C-l<15 THEN P 
RINT ,,"SEI UN POMPIERE DI II GR 
ADO " 

335' IF C — 1>15 THEN PRINT , /"SEI 
UN POMPIERE DI III GRADO..." 

34-0 GOTO 390 

360 PAUSE 150 
370 CLS 

380 PRINT RT 10,1;"HAI SALUATO 
MOLTE PERSONE." 

361 PRINT RT 12,1;"I MIEI COMPL 
IM ENTI, E. . . . . 

382 PRINT RT 14-,4-; "AL PROSSIMO 
INENDIO" 

390 REM 

4.00 PAUSE 150 

4-10 CLS 

4-20 PRINT RT 10,1;"UUOI GIOCARE 
ANCORA 7 (S/N)" 

4-30 INPUT Ul$ 

4-4-© IF U$*"S" THEN GOTO 20 
4-50 IF W*0“S" THEN CLS 
4-55 PRINT A' 

O.* 

4-60 PAUSE 150 
4-70 STOP 

500 REH 

501 REM INTRODUZIONE 

502 REM 

504 FOR K«1 TO 20 

505 PRINT RT 15,3; 


RT 10,5;"ALLORA GIR 



507 I 

mrPini 

508 I 


RT 15,3," 
PRINT RT 18,6; "| 


Ì08 NEXT K 
51© CLS 

515 PRINT "IN QUESTO GIOCO SEI 
UN POMPIERE." 

520 PRINT ,,"LA CASERMA SI TROU 

O n r\p-CTDO m 11 " 

525 PRINT "FONDO DELLO SCHERMO. 

530 PRINT ,,"QUANDO UEDI LAMPEG 
GIARE <FUOCO>" 

535 PRINT "DEUI LASCIARE IL TUO 
POSTO E AN-" 

540 PRINT "DARE R SRLUfiRE IL MA 
GGIOR NUMERO" 

545 PRINT "POSSIBILE DI PERSONE 

• a 

550 PRINT ,,"RICORDA CHE CON IL 

555 S PRINT E "TEMPO LE FIAMME AUME 

N 560°PRINT L “"TUO COMPITO SI FA ME 
NO SEMPLICE." 

565 PRINT ,,"TI MUOUI MEDIANTE 
I TASTI 5 - 8" 

570 PRINT RT 20,0;"B U O N DI 
UERT IMENTO" 

575 PAUSE 1000 
580 RETURN 
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UOVA SPAZIALI 


di Arturo Cucè 


Un classico tiro al bersaglio con un raggio laser 
al posto del convenzionale proiettile...e uova 
«spaziali» da colpire. 


Notata «strana» rassomiglianza dell’UOVO 
SPAZIALE con l’UOVO ben conosciuto dai 
lettori di LIST. 


10 REM 
20 REH 
30 REM 
40 REM 
50 REM 
60 REM =- 
70 REM = 
80 REM = 
90 REM = 
100 REM = 
110 REM = 
120 REM = 
130 REM = 
140 REM = 
150 REM = 
160 REM = 
170 REM = 
180 REM = 
190 REM = 

200 REM =- 

201 REM 

202 REM 

203 REM 
210 SCREEN 
220 C0L0R3 
230 SOUND 
240 CURSOR 
URO" 



5/12/1984 


UOUA SPAZIALI 


Programma realizzato da : 
Arturo Cuce’ .Res i dente 
a Me s s i n a 

in via M i r u l l a-P i s t u n ì n a : 
C.A.P. 98013 


LE ISTRUZIONI SI 
POSSONO AUERE 
FACENDO GIRARE 
IL PROGRAMMA CrunD. = 


ALESSANDRA 
2,2 : CLS 

,1,C00,003-C255,1913,1 
1,600, 13 

20,20:PRINT CHR$C173;" ART 


250 CURSOR 80,50 : PR I NT CHR$C163,'" pres 
enta " 

260 CURSOR 30,120 : PRI NT CHR$C173;" UOU 
A SPAZIALI " 

270 CURSOR 50,170 : PRINT CHR$CI 63 ; "UUOI 
LE ISTRUZIONI CS/N3 ?" 

280 SOUND 0 

290 IF INKEY$="N"THEN GOTO 320 
300 IF INKEY$="S"THEN GO TO 1010 
310 GOTO 290 
320 CLS 

330 K=0 :NA=2:0= 6 
340 E=30 :L=2 
350 X=130 :Y=150 
360 2=10: U=20 

370 LINEC0,170 3-C 255, 1703,1 1 

380 FOR R=10 TO 220 STEP 30 
390 CURSOR R,170 : PRI NT " " 

400 NEXT R 
410 X$=INKEY$ 

420 IF X$ = "A"TFIENX=X-15 : SOUND 1, 111,10 
430 IF X$="S"THENX=X+15:S0UND1,111,10 
440 IFX$="F"THEN LINECX+8,Y3-CX+8,U3,4 
: SOUND 1,300,15 :1FX + 8>2ANDX + 8<2+16THEN 
GOTO630 

450 CURSORI0,10:PRINT CHR$C173 ;"Score 

" ;K 
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460 CURSORI0,180 : PRINT CHR$C163 ; "CANNO 

NI LASER ";NA 

470 BLINECX+8,Y3-CX+8,U3 

480 J = INT CRNDC13X2413+40 : SOUND 1, 700,1 

5 

490 U=INTCRNDC13*J3+10 
500 SOUND0 
510 2=2 + E 

520 IF 2> J THEN E=-30 :U=U+0:L=L +1 

530 IF 2 < U THEN E=30 

540 IF L=15THENL=2 

550 IF U>145THENGOTO700 

560 MAG2 

570 PATTERN S#0,"18183C7E7E3C7E66" 

580 SPRITE0,C X,Y3,0,4 

590 PATTERN S# 1 ,"183C7E7E7E7E3C18" 

600 SPRITE1,C2,U3 j1,L 
610 GOTO 410 

620 REM ALESSANDRA 

630 SOUND4,0,15:K=K+050 

650 PATTERN S#l,"703DE749AB4B952D" 

660 FORA = 1 TO40 -*NEXT A 
670 SOUND0 

680 IF K=2500 THEN 890 

690 FORA=1TO 100:NEXT A :CLS :GOTO370 

700 PATTERNStfl,"183c5af {a5bd1414" 

710 NA=NA-1:SPRITE1,C2,U3,1,15 

720 FORA=1TO 300:NEXT A 

730 SPRITE0,C2-10,T 3,0,8 

740 FORA=ITO 300 :NEXT A 

750 PATTERNS#0,"7304F41 DECI3428B" 

760 SOUND4,0,15 
770 SPRITE0,C2-10 ,T 3,0,8 
780 FORA=lTO 200:NEXT A 
790 SOUND0 

800 CLS : IF NAO-1THEN GOTO340 
810 PRINT :PRINT :PRINT CHR$C163;"I CA 
NNONI LASER "=PRINT "A TUA DISP0SI2I0 
NE"=PRINT "SONO STATI DISTRUTTI " :PRIN 
T "ni DISPIACE 2" 

820 IF K<=500 THENS$=" SCARSO 2 2" 

830 IF K>500AND K<=1000 THENS$=" MEDI 
OCRE 22" 

840 IF K>100 AND K<=1500THENS$=" SUFF 
ICENTE.22" 

845 REM Arturo &< Sandra 

850 IF K>1500AND K <=2500THENS$=" BUON 

0 2 2 " 

860 IF K>2500 THEN S$ = " OTTINO 2.2 2 2 " 
862 IF K>3500 THEN S$=" DA UERO PROFE 
SSIONISTA 22" 

870 CURSOR20,120 :BRI NT " IL TUO PUNTE 
GGIO E’ " ,’K :PRINT " CIOÈ’ " ;S$ 


880 GOTO 970 

890 CLS :PRINTCHR$C 173. ATTEN2I0NE 

":PRINT :PRINT 

900 PRINT CHR$C163 ; " HAI TOTAL 122AT0 
" ,*K;" PUNTI " 

910 PRINT " PER QUESTO HAI DIRITTO AD 
UN’ALTRO" 

920 PRINT "CANNONE LASER " 

930 PRINT :PRINT :PRINT CHR$C173;" BRA 
UO 2 " 

940 NA=NA+1:0=10 

950 FORA=ITO 1800:NEXT A 

960 CLS : GOTO 370 

970 CURSORI 0,170 :PRINT CHR$C163 ; "UUOI 
FARE UN’ALTRA PARTITA ? CS/N3" 

980 IF INKEY$="S"THEN GOTO150 
990 IF INKEY$="N"THENEND 

1000 GOTO 980 
1010 CLS 

1020 PRINT TABC73 ; "ISTRU21ONI" 

1030 PRINT "Siete al comando di un " 
1040 PRINT "cannone laser, puntato nel 

10 ":PRINT "spazio, per proteggere la 

terra dai frequenti" 

1050 PRINT "attacchi a l i eni.":PRI NT "A 
oete a disposizione 3 cannoni laser, " 

1060 PRINT "e ne otterrete un altro qu 
andò sarete " 

1070 PRINT "riusciuti a totalizzare 25 
00 punti." 

1080 PRINT "Per colpire le uoua aliene 

11 

1090 PRINT "prima che cadano sulla ter 
ra":PRINT- "e o i distruggano, o i con^ie 
ne" 

1100 PRINT "posizionare il cannone las 
er " :PRINT "^>u l Le oar i e basi di sparo 
segnate " 


1 110 

PRINT 

"con quest simbolo 

1120 

PRINT 

TABC5 3 ; 

" COMANDI 

SU TASTIER 

A" 





1130 

PRINT 

" Con i 

l tasto > 

A < i L can 

none 

laser 

s i " 



1140 

PRINT 

" muoue 

uerso sinistra." 

1150 

PRINT 

" Con i 

1 tasto > 

S < oerso 

DESTRA" 




1160 

PRINT 

" Con i 

l tasto > 

F < * " 

: PRI NT " s 

i SPARA" 



1170 

PRINT 

:PRINT " 

Per inizi 

are premere 


> A <" 

1180 IF INKEY$="A" THEN GOTO 320 
1190 GOTO 1180 
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EStiMÉ m 



JAZZI 

di Marco Marzano 



Questo programma renderà felici tutti coloro 
che si ritengono ormai «saturi» dei videogames 
di azione. 

Ecco il famoso JAZZI (o JAHTZEE), un 
divertente gioco con 5 dadi che, sotto forma di 
solitario, ha come scopo quello di cercare di 
totalizzare il più alto punteggio possibile 
mediante le 12 giocate a disposizione, ognuna 
delle quali permette al giocatore ulteriori due 
gettate nel caso si volesse cambiare quanche 
dado. 

Questo sarà possibile specificando, ogni volta 
che il computer lo chiederà, il valore del dado 


che si vuole cambiare. 

Alla fine di ogni giocata si può decidere in 
quale delle 12 caselle si desidera (se possibile) 
sistemare il punteggio ottenuto, ovvero: 


ASSI 

DUE 

TRE 

QUATTRO 

CINQUE 

SEI 

TRIS 


= si sommano i dadi con segno 1 
= si sommano i dadi con segno 2 
= si sommano i dadi con segno 3 
= si sommano i dadi con segno 4 
= si sommano i dadi con segno 5 
= si sommano i dadi con segno 6 
= combinazione con almeno tre 
dadi uguali; vengono sommati 
tutti i dadi 
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FULL 


POKER 


SCALA MIN 


SCALA MAX 
JAZZI 


Se il risultato di una giocata è tale da non poter 
essere piazzato in alcuna casella, o se la 
casella stessa dove lo si vorrebbe piazzare è 
già occupata, si potrà annullare la giocata 
digitando «NULLO», o premendo un tasto 
qualsiasi (N.B.: la giocata rimarrà però valida 
neH’ambito delle 12 a disposizione). 

Al termine del gioco verrà visualizzato il 


= combinazione con tre e due 
dadi uguali; vengono assegnati 
25 punti 

= combinazione con almeno 4 
dadi uguali; vengono sommati 
tutti i dadi 

= una sequenza di almeno 4 
dadi; vendono assegnati 30 
punti 

. = una sequenza di cinque dadi; 

vengono assegnati 40 punti 
= combinazione di 5 dadi uguali 
tra loro; vengono assegnati 50 
punti 


punteggio ottenuto e relativo commento. 

Per i possessori dello SHARP MZ 731 sarà 
possibile avere la stampa della tabella con il 
risultato. 

ELENCO VARIABILI 


MI $,M2$ 

!W 

F,G,H,I,L,M,N 

V 

Al ,B1 ,C1, 

DI ,E1,F1 
TEN 

P$ 

J,Y 

Q$ 

NY 


CC$ 

W$ 


valori caselle 

variabile per il ciclo del gioco 

valori dei 5 dadi 

tentativi (=gettate) per ogni 

giocata 

piazzamento del colpo 
variabili per assegnazione 
punteggi 

quantità di dadi da cambiare 
valore del dado da cambiare 
punteggio totale 
commento del punteggio 
variabile per ciclo di attesa 



' reh ********************* 

2 REM * PROGRAMMA "JA22I" * 

3 REM *PER CONCORSO STRIKE* 

4 REM * MARCO MARCANO * 

5 REM * * 

6 REM * ROMA * 

2 REM ********************* 

8 REM 

9 REM 

!0 REM *************** 

20 REM *PRESENTA2I0NE* 

30 REM *************** 


40 PRINT"B” 


50 PRINT" C4C4C4C4C4C4C4C4C4C4C4 

C4C4C4C4C4C4C4C4C4C4C4 " 

60 PRINT" Q2 

C5" 

70 PRINT" 02 ***JA22I*** 

£5" 


80 PRINT" £2 

C5" 

90 PRINT" 02 NARCO MARCANO @ 1984 

LS" 


100 PRINT" C7 

C5" 


1.10 PRINT" C3C3C3C3C3C3C3C3C3C3C 

3C3C3C3C3C3C3C3C3C3C3C3 ” 

120 M1$="C1D1E1F1G1A1B1":TEMP07=MUSICM1$ 
1 30 PRINT"- 


140 PRINT"L0 SCOPO DI QUESTO GIOCO E' RI 
USCIRE A" 

150 PRINT”SCOMPLETARE LA TABELLA DEI UAL 
ORI CON " 

160 PRINT"ffl12 SOLE PRODE,COMPOSTA OGNUNA 
□A UN MAS-" 

170 PRINT"SIMO DI 3 LANCI DEI DADI" 

180 PRINT"- 


190 PRINT" PER GIOCARE PREMERE IL TAS 
10 S" 

200 PRINT”SE BUON DIUERTIMENI05 

5 " 

210 M2$=';C2" :MUS1CM2$ 

220 GETS$:IFS$="S"THEN310 
230 GOTO220 

240 REM *********************** 

250 REM *A22ERAMENT0 UARIABILI* 

260 REM *********************** 

270 A=0:B=0:C=0 =D=0:£=0 :F=0:G=0:H=0: 1=0 : 


L=0-M=0:N=0:TT=0:CC$="" 

^80 REM ****************** 

290 REM *1NI2I0 DEL GIOCO* 

300 REM ****************** 

310 F0RU=1T012:PRINT"B" 

320 GOSUB1000 

330 REM ************************* 

340 REM *ESTRAHIONE CASUALE DADI* 

350 REM ************************* 

360 Al=INTC6*RNDC113 + 1 :B1=INTC6*RNDC133 + 
iiC1=1 NT C6*RND(13 3 + 1 :D1=INTC6*RNDC 1 33 + 1 : 

E1=INTC.6*RNDC 133+1 
370 GOSUB2000:TEN=0 

380 CURS0R8,23:PRIN3"UUOI CAMBIARE QUALC 
HE DAD0?:S/N"=MUSICM2$ 

390 GETS$:IFS$="'1HEN390 
400 IFS$="S"THEN3030 
410 CURSOR0,23:PR1NT" 

420 CURSOR0,23 :PRINT"DOUE UUOI PIAH2ARE 
IL COLPO"5 : MUSICM2$:INPUTP$ 

430 Y=A1+B1+C1+D1+E1 : IFP$="NULLO"THEN620 
440 IFP$="ASSI "1HENJ = 1 :GOSUB4000 = IFAO0T 
HEN410 


60 




























































t 


450 IFP$="ASSI"THENA=Y 

^60 IFP$="DUE"THENJ=2:GOSUB4000 : IFBO01H 
EN410 

470 IFP$="DUE"THENB=Y 

480 IFP$="TRE"THENJ=3 =GOSUB4000 : IFCO0TH 
EN410 

490 1FP$="TRE"THENC=Y 

500 IFP$="QUATTR0”THENJ=4 :GOSUB4000 : IFD< 
>0THEN410 

510. 1FP$="QUATTRO"THEND=Y 

520 IFP$=”CINQUE"THENJ=5:GOSUB4000 : IFEO 

0THEN410 

530 IFP$="CINQUE"THENE=Y- 

540 IFP$ = "SEI "THENJ=6 :GOSUB4000 : IFFO0TH 

EN410 

550 IFP$="SEI"THENF=Y 
560 IFP$="TRIS" 1HEN4090 
570 IFP$="FULL"THEN4110 
580 1FP$="POKER”THEN4130 
590 IFP$="SCALA NIN."THEN4150 
600 IFP$= "SCALPI NAX. "1 HEN4 1 70 
610 IFP$="JAZZI”THEN4190 
620 NEXTU:G0105000 



1000 REN X**************************** 
1010 REN *RAPPRESENTAZ. TABELLA E DADI* 

1020 REN *******************X**X*XX**X 
1030 PRINT"B":PRINTTABC143;''**JAZZI**":P 
RIN1" C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C 
4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4 " 

1040 PRINT" C7 FD 


C5" 

1050 PRINT" C7 ASSI : 

: " ;G JTABC363C5" 

1060 PRINT" C7 
C5" “ 

1070 PRINT" C7 DUE: 

"JH JTABC363 ;" C5” 
1080 PRINT 


C£” 

1090 PRINT" 

FD POKER: 

1100 PRINT" 


1 140 PRINI" 
C5 

1150 PRINT" 
FD JAZZI: 

1160 PRINT" 


QZ 

C7 TRE: 

";l; TABI 363 

£2 


;Aj" £J3 tris 
FD 

jB ; " FD PULL 

£B 

JC JTABC 1 73 5" 

" C5" 

FD 

JD;TABC173 >" 

" C5" 

R3 

;EJTABC1735" 

" C5 ” 

m 

;F JTABC 1 73 5 " 


£5.' 

1110 PRINT" £2. QUAT1R0: 
Ffl SCALA NIN. :’ ";L;TABC363 
1120 PRINT" £2 
C5” 

1130 PRINT" C7 CINQUE: 

FD SCALA NAX.: ”;N;TABC363 


C7 


C7 SEI : 

" ;N JTABC363 5 " C5.' 

cz m 


C5 ” 

1170 PRINT" C3C3C3C3C3C3C3C3C3C3C3C3C 
3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C 


3" 


! 180 CURS0R9 

,17 :PRINT"C4C4C^ 

C4C4C4 

4C4C4 

C4C4C4 

C4C4C4" 



1190 CURS0R8, 

18 :PRINT”C7 

C5C7 

C5C7 

C5C7 

C5C7 

C5" 



1200 CURS0R8, 

19 :PRINT"C7 

C5C7 

C5C7 

C5C7 

C5C7 

C5” 



1210 CURS0R8, 

20 :PRINT"C7 

C5C7 

C5C7 

C.5C7 

C5C7 

C5." 




1220 CURS0R9 ,21 :PRINT"C3C3C3 C3C3C3 C 
3C3C3 C3C3C3 C3C3C3" ~ 

1230 NUSICN1$ 

1240 RETURN 

2000 REN ***************************£ 
2010 REN *RAPPRESENTAZ.DADI ESTRATTI* 
2020 REN **************************** 
2030 CURS0R9, 19:PRINTA1 :CURS0R14,19:PRIN 
TEI :CURS0R19, 19=PRINTC1 :CURS0R24, !9:PRIN 
IDI :CURS0R29,19:PRINTE1 :RETURN 
3000 REN ****************** 

3010 REN *CANBIANENTO DADI* 

3020 REN ****************** 

3030 CURSOR0,23 :PRINT" 

3040 CURSORI 5,23 :PRINT"QUANTI NE UUOI CA 
NB1ARE?":NUS1CN2$ 

3050 GETQ$ : 1FQ$=""T HEN3050 
3060 FORCY=11OUAL C Q$3 
3070 CURSOR0,23 :PRINI" 

3080 CURSORI 9,23:PRINT"QUALE UUOI CANBIA 

RE?" ; :NUSICN2$:DINNYC63 

3090 GETNYCT3:IFCNYCT3=73+CNYCT3=83+CNYC 

T3=93 + CNYCT3=03 THEN3090 

3100 IFE1=NYC T 3 THENE1=INT C6*RNDC1 3 } + 1 =G0 

TO3150 

3110 IFD1=NYCT 3 TREND 1=IN1f.6*RNDC133 + 1 :G0 
TO3150 

3120 IFC1=NYCT3THENC1=1 NTC6*RNDC13 3 + 1 :G0 
TO3150 

3130 IFB1 =NYC T 3 THENB1 = I NT f.6*RNDC 13 3 + 1 :G0 
TO3150 

3140 I FAI=NY C T 3 THENA1=INTC6*RND CI 3 3 + 1 :G0 
103150 

3150 NEXTCY:GOSUB1000:GOSUB2000:IFTEN=1T 
HEN410 

3160 TEN=1 :GOTO380 

4000 REN *********************** 

4010 REN XASSEGNAZIONE PUNTEGGI* 

4020 REN *********************** 

4030 Y=0 :1FA1=JTHENY=J 
4040 IFB 1 = JTHENY=Y+B'1 
4050 IFC1=JTHENY=Y+C1 
4060 IFD1=JTHENY=Y+D1 
4070 IFE1=J1 HENY=Y+E1 
4080 RETURN 
4090 IFGO0THEN41 0 
4100 G=Y:GOTO620 
4110 IFHO0THEN4 1 0 
4120 H=25:GOTO620 
4130 IFI O0THEN41 0 
4140 I=Y:GOTO620 
4150 IFL O0THEN41 0 

4160 L=30:GOTO620 

4170 IFNO0THEN4 1 0 

4180 N=40:GOTO620 

4190 IFNO0THEN4 1 0 

4200 N=50:GOTO620 

5000 REN ******************** 

5010 REN *PUNTEGG10 FINALE E* 

5020 REN XRICHIESTA TABELLA * 

5030 REN ******************** 

5040 PRINT"®" 

5050 TT=A+B+C+D+E+F+G+H+I+L+N+N 
5060 1FT1<-75THENCC$="BASSO":GOTO5120 
5070 IFT T <=100THENCC$="NEDI OCRE":G0T0512 
0 

5080 IFTT<=180THENCC$="DISCRETO":G0T0512 
0 

5090 IFTT<=250THENCC$="BUONO":GOTO5120 
5100 IFTT <=300THENCC$="OTTINO":GOTO5120 
5110 IFTT>300THENCC$="NOSTRUOSO22" 


5120 PRINT"fflSI 
TOTALIZZATO" 
5130 PRlNT'ffl ‘ 
0 ";CC$ 

5140 NUSICN1$ 
5150 PRINT"B— 


LA PARTITA E' FINITA:HAI 


;TT ; " PUNTI:E' UN PUNTEGGI 


5160 F0RU=1TO300:NEXT:NUSICN2$ 

5170 PRINT "SI HAI lA STANPANTE?:S/N" 

5180 GEIS$ : IFS$=""THEN5180 
5190 l.FS$="S"THEN521 0 
5200 GOTO5240 

5210 NUSICN2$:PRlNT"ffl UUOI STANPARE LE 
TABELLA?': S/N" 

5220 GETS$ : IFS$=""THEN 5220 
5230 IFS$="S"THEN6000 

5240 CURSOR20,23:PRINT”UUOI RIGIOCARE?:S 
/N" :NUSICN2$ 

5250 GETS$ : IFS$=”"THEN5250 

5260 IFS$="S"THEN240 

5270 PRINT"B":END 

6000 REN ********************** 

6010 REN XSTANPA DELLA TABELLA* 

6020 REN * CPER NZ-7313 * 

6030 REN ********************** 

6040 CURS0R2,16 :NUS1CN2$ : INPUT"NONE?CNAX 
11 CARATTERI 3 " ;NN$:IFLEN(NN$3>11THENNN 
<f=HID$CNN$,1,113 

6050 CURS0R2,18:NUSICN2$:1NPUT"DATA? ";D 
D$ 

6060 NODETL:PC0L0R3:PRINT/P" **JA 

ZZI**” 

6070 PCOLOR2:PRINT/P" " ;NN$;TABC153;DD$ 
6080 PCOLOR0:NODEGR:N0UE48,0 =LINE424, 0,4 
24,-156,48,-156,48,0:NOUE220,0 :LINE220,- 
i56:PHONE 

6090 PC0L0R1:NODETN:PRINT/P:PRINT/P" 


assi: ";a;" 

6100 PRINI/P" 
FULL: "JH 

6110 PRINl/P" 
POKER: •• ; I 

6120 PRINT/P" 
SCALA NIN. : " ;L 
6130 PRINT/P" 
SCALA NAX. : ” ;N 
6140 PR1NT/P" 


TRIS: 
DUE : 


TRE : 


QUATTRO: 


CINQUE: 


SEI : 


"5G 

;b;tabci93 
5C;TABC 193 
;D;TABC193 
;E JTABC193 ;" 
;F;TAB C13 3 ; M 


JAZZI : "3N 

6150 PRINT/P:PRINT/P" TOTALE = PUNTI" ;TT 
CPUNTEGGI0 " ;CC$;"3" 

6160 PC0L0R2:PRINT/P"- 


6170 PC0L0R3 :PRINT/P" BY NARCO NARZANO & 
SHARP NZ-731 @ 1984" :SKIP3:PCOLOR0:GOTO 
5240 
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IL POETA 
SINCLAIR 

di Mario Caracciolo 


Questo programma sarà di grande aiuto a tutti 
gli innamorati con poca fantasia: permette 
infatti la creazione di «originali» liriche d’amore 
mediante la combinazione di svariati versi. 

Dato il RUN verrà visualizzata la prima frase: 


premendo il tasto <S> seguito da NEWLINE 
ne otterrete una nuova che sarà ogni volta 
differente dalla precedente. 

E così di seguito fino ad ottenere la «lirica» 
completa. 




1 

REM 

***************** 

2 

REM 

* 

* 

3 

REM 

* 

IL POETO * 

4- 

REM 

* 

SINCLRIR * 

5 

REM 

* - 


6 

REM 

* 

CARACCIOLO * 

7 

REM 

* 

MARIO * 

8 

REM 

* 

* 

9 

REM 


. BURIOSCO 1/D* 

10 

REM 

* 

10135-TORINO * 

11 

REM 

* 

• 

12 

REM 

* 

* 

13 

REM 

***************** 

14- 

REM 




15 

LET 

R = INT 

(RND*10> 

+ 1 

16 

G05UB 4-0 



17 

LET 

B = INT 

(RND*10) 

+ 1 

18 

LET 

B = INT 

(RND *10) 

+ 1 

19 

GOSUB 62 



20 

LET 

C = INT 

(RND *10) 

+ 1 

21 

GOSUB 84- 



22 

LET 

D = INT 

(RND *10) 

*1 

23 

GOSUB 106 



24- 

LET 

E = INT 

(RND*10) 

+ 1 

25 

GOSUB 128 



26 

LET 

F = INT 

( RND *10) 

*1 

27 

GOSUB 150 



28 

LET 

G = INT 

(RND *10) 

+ 1 
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29 GDSUB 172 

30 PRINT RT 20,0;" UUOI UN RLT 
RR FRfiSE ? PREMI S/N E POI NEU L 
INE" 

32 INPUT Z$ 

34- IF 2 $ = “ N " THEN STOP 
36 IF Z$="S" THEN CLS 
38 IF Z$="S" THEN RUN 
4-0 IF 0 = 1 THEN PRINT "IN RIUfl 
RL. MORE %% 

4-2 IF R=2 THEN PRINT “QUANDO M 
I SORRIDI" 

4-4- IF R=3 THEN PRINT "QUANDO M 
I DICI MALIZIOSAMENTE - RNCORR . 

a • 

”'4-6 IF R=4- THEN PRINT "SEMPRE O 
URNDO TI PENSO" 

4-8 IF R=5 THEN PRINT "PERCHE T 
U NON SIR SOLO UN RICOR-DO" 

50 IF R=6 THEN PRINT "PERCHE L 
RMORE BRUCIO LA UITR" 

52 IF R=7 THEN PRINT "PER SAPE 
RE CHE ESISTI REALMENTE" 

54- IF R=8 THEN PRINT "PROPRIO 
PERCHE TI AMO" 

56 IF R=9 THEN PRINT "SULLO CA 
LDR SPIAGGIA" 

58 IF Ra10 THEN PRINT "GOARDAN 
DO IL CIELO STELLATO" 

60 RETURN 

62 IF B=1 THEN PRINT "UORREI F 
RUGARE IL TUO CORPO" 

64. IF B =2 THEN PRINT "UORREI S 
FIORARE LE TUE LABBRA" 

66 IF B=3 THEN PRINT "UORREI A 
SBRACCIARTI" 

68 IF B =4- THEN PRINT "UORREI C 
OPRIRTI DI BACI" 

70 IF B -5 THEN PRINT "UORREI T 
ENERTI PER MANO" 

72 IF B =6 THEN PRINT "UORREI S 
RCIUERE IL TUO NOME SULLA SABBIA 

a a 


74- IF B=7 THEN PRINT "UORREI S 
USSURRARTI PAROLE D AMORE" 

76 IF B=8 THEN PRINT "UORREI A 

rrQCF77QDTT *■ 

78 IF B=9 THEN PRINT "UORREI U 
NIRMI A TE" 

80 IF B = 10 THEN PRINT "UORREI 
BACIARTI SUGLI OCCHI" 

82 RETURN 

84- IF C = 1 THEN PRINT "SEMPLICE 
MENTE," 

86 IF C=2 THEN PRINT "INTENSAM 
ENTE ," 

88 IF C=3 THEN PRINT "CON DOLO 
E UIOLENZA," 

90 IF C=4 THEN PRINT "CON PASS 
IONE," 

92 IF 0=5 THEN PRINT "SUBITO," 
94. IF C=6 THEN PRINT "LEGGERME 
NTE , " 

96 IF Css7 THEN PRINT "ALL INFI 
N ITO , " 

98 IF 0=8 THEN PRINT "ARDENTEM 
ENTE " 

100'IF C=9 THEN PRINT “TENERAME 

NTE, " 

102 IF C=10 THEN PRINT "DOLCEME 

NTE , " 

104- RETURN 

106 IF D = 1 THEN PRINT "STRINGER 
TI FORTE, FORTE," 

108 IF D =2 THEN PRINT "PENETRAR 
E NEI TUOI SOGNI PIU SEGRETI" 

110 IF D=3 THEN PRINT "MORDETI 
LE LABBRA" 

112 IF Ds4 THEN PRINT "ASCOLTRE 






"E 

SPIEGA 

"E 

MOSTRA 

"E 

■ a 

INDURT 

"E 

DIRTI 

"E 

DIMGST 

"E 

RACCON 

CON LE M 

"E 

ta 

FARTI 

“E 

SGELAR 

"E 

FARTI 


LA UOCE SEGRETA DEL TUO CORPO" 
114- IF D=5 THEN PRINT "MORDICCH 
IARE LE TUE ORECCHIE" 

116 IF D =6 THEN PRINT "INEBRIAR 
MI DEL TUO PROFUMO" 

118 IF D =7 THEN PRINT "GUARDARE 
NEI TUOI OCCHI" 

120 IF D*8 THEN PRINT "FARTI FR 
EMERE TRA LE MIE BRACCIA" 

122 IF D=9 THEN PRINT "MIO SOLE 
RADIOSO" 

124- IF D = 10 THEN PRINT "BACIARE 
LA TUA PELLE.. .TUTTA ..." 

126 RETURN 

128 IF E=1 THEN PRINT 
RTI SENZA FALSI PUDORI" 

130 IF E=2 THEN PRINT 
RTI SENZA FALLO" 

132 IF E =3 THEN PRINT "E 
I A UEDERE CHIARAMENTE 
134- XF E =4- THEN PRINT 
SENZA ORGOGLIO," 

136 IF E=5 THEN PRINT 
RARTI APERTAMENTE," 

138 IF E =6 THEN PRINT 
TARTI CON GLI OCCHI E 
ANI" 

14-0 IF E =7 THEN PRINT 
PIANO PIANO SCOPRIRE.. 

14-2 IF E *8 THEN PRINT 
TI TIMIDAMENTE..." 

14-4. IF E =9 THEN PRINT "E FARTI 
CAPIRE.••" 

14-6 IF*È = 10 THEN PRINT "E RIUEL 
ARTI FINALMETE. . . "* 

14.8 RETURN 

150 ÌF F = 1 THEN PRINT "MENTRE I 
L CUORE SI AGITA NEL PETTO" 

152 IF F =2 THEN PRINT "MENTRE U 
N FUOCO SOTTILE ACCENDE LA MIA P 
ELLE" 

154- IF Fa3 THEN PRINT "SOPRA UN 
LETTO INUITANTE" 

156 IF F =4- THEN PRINT "SUPERNDO 
OGNI TITUBANZA" 

158 IF F=5 THEN PRINT "IN GUEST 
I FUGGEUOLI ISTANTI" 

160 IF F =6 THEN PRINT "OLTRE L 
INDIFFERENZA DEL TUO CUORE" 

162 IF F=7 THEN PRINT "LA TUA M 
ANO SUL MIO PETTO" 

164. IF F=8 THEN PRINT "NELLA MR 
GIR DELLR LUCE LUNARE" 

166 IF F=9 THEN PRINT "NELLA NO 
TTE CHE IMBIANCA" 

166 IF F = 10 THEN PRINT "ASCOLTR 
NDO LA NOSTRA CANZONE" 

170 RETURN 

172 IF G = 1 THEN PRINT "CHE T AM 
O SENZA SAPERE COME" 

174. IF G=2 THEN PRINT "LA PASSI 
ONE CHE MI DIUORA " 

176 IF G*3 THEN PRINT "CHE UIUO 
SOLO PER TE" 

178 IF G=4- THEN PRINT "CHE COSR 
E L RMORE MIO PER TE" 

180 IF G =5 THEN PRINT "PERCHE T 
I RMO" 

182 IF G = 6 THEN PRINT "CHE COSA 
IN TE HI FA IMPAZZIRE" 

184. IF G=7 THEN PRINT "L INTENS 
ITR DEL MIO DESIDERIO" 

186 IF G =8 THEN PRINT "CHE QUAL 
COSA TRA DI NOI E ACCADUTO" 

168 IF G=9 THEN PRINT "CHE SI P 
UO FERMRRE IL TEMPO" 

190 IF G=10 THEN PRINT "CHE SEI 
TUTTO QUELLO CHE AMO" 

192 RETURN 
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1 PR I NT » jjflgfl . IL PESCATORE " 

£ PR I NT" smac ARI C AMENTO CARATTERI" 

10 FORT=7168T0?168+62*8-1 : READA :POKET,A :NEXT 
£0 DATA 14,62,£54, 62 ,14,£,6,6 
30 DATA 14,14,14,££,££,££,54,54 
40 DATA 113,118,£46,£54,£46,£46,£46,£46 
50 DATA0,0,0,1,1,3,7,7 


Un pescatore è in mezzo al mare con la sua 
barca e si trova proprio in un «mare» di guai: il 
maltempo e dei pericolosi squali. 

Motivo del gioco è quello di prendere con 
l’ombrello quante più possibili gocce di pioggia. 
Un occhio alle nubi...ed uno al mare, dove di 
tanto in tanto arrivano degli squali, che se non 
vengono uccisi con il remo fanno affondare la 
barca...e allora povero pescatore!!! 

Ogni 2000 punti una vita in più. 

I tasti da usare sono: 


SPACE = ombrello o remo 
> = spostamento a destra 

< = spostamento a sinistra 

N.B.: La prima parte del programma carica i 
caratteri. 


FISHERMAN 

di Luca Nardini 




60 DATA£46,£46,£46,£54,£46,£46,£46,£46 


70 DATA 15,31 ,63,1£7 ,£55,£55,£55,£55 

SO DA T A0,0.0,0,O,3,7,31 

SO DATA246,£46,6,£54,£54,6,6,15 

100 DATA255,255,8,255,255,0,0,0 

1 10 DATA 1 E?, 127,64,£55,£55,0,0,0 

1 £0 DATAE55 ,£55,1 £7,1 £7,63,3 1 , i5,7 

130 DATA 170,£55,85,0,£55,35,0,170 

148 DATA£55,£55,£54,£54,£5£,£43,£40,££4 

150 DATA6,1£,£4,£40,19£ ,0,0,0 

160 DATA0,0,0,19£ ,£40 ,£4,1£,6 

170 DATA96,48,£4,15,3,0,0,0 

160 DATA0,0,0,3,15,£4,43,96 

199 DATA40,40,170,60,£8,£5£,12,60 

£00 DATA1£,40,40,£48,£43,40,£0,40 

210 DATA40,4C,170,60,52,63,48,60 

£20 DATA4S,49,40,47,47,40,£0,40 

£33 DATA32,48,190,187,£5£,£55,190,128 

240 0ATA4,12,125,22 1 ,63,£55,125,1 

259 DATA0,0,0,0,0,0,7,195 

260 DATA0,0,0,0,1,13,109,255 
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, 0,0 


270 DATA0,8,8,0,120,£24,£48,£48 
290 DATA0,0 ,0 ,0 , 1 , 15,15,15 
2S8 0ATA7,3,15,63,255,£55,255,255 
300 DATA 139,£55,255,255,255,255,255,255 
310 DATA255,255,255,255,255,255,255,255 
320 DATA0,192,240,240,224,248,252,243 
330 DATA255,7,31,127,3,24,31,31 
340 DATAC,0,0,0,0 ,© ,3,0 

350 DATA£55,255,255,255,255,127,255,255,0,0,0,0,0,0 
360 DATA255,255,£55,255,252,£55,255,224 
370 DATA255,192,240,252,0,0,128 ,0 
330 DATA0,0,63,0,0,0,0,0 
330 DATA3,3,133,1 ,1, 1 ,0,0 
430 DATAO,8,0,0,0,3,12 ,0 
418 DATA0,0,0,48,192,0,0,8 
428 DATA 127,127,63,63,3 1 , 15 ,7,3 
438 DATA 1,2,4,8,16,32,64,123 
440 DATAO,0,O,0,4,4,3,8 
438 DATA255,127,31,7,0,0,0,4 
468 DATA 16,16,32,32,0,0,0,0 
4~9 DATA4,4,4,4,4 ,4 ,4,0 

475 DATA255,199,189,207,245,143,255,255 
430 DATA255,123,145,169,169,169,145,255 
430 DATA255,129,145,177,145,145,135,255 
588 DATA£55,129,153,165,137,145,189,255 
5 18 DATA255,123,135,137,153,137,185,255 
528 DATA255,129,153,163,189,137,137,255 
530 DATA235,123,189,161,185,133,185,255 
548 DATA255,129,157,161,135,165,153,255 
530 DATA235,129,133,133,137,145,145,255 
568 DATA255,129,153,165,153,165,153,255 
570 DATA255,123,153,165,157,133,185,255 
538 DATA20,58,28,119,8,54,8,54 
530 DATAS,8,23,20,53,62,62 ,23 
680 DATA2S,62,127,73,8,8,40,16 
8 18 DATA 16,2,32,136,80,42,116,56 
628 REM ^ 

638 P0KE52,PEEK(52)-2 :P0KE56,PEEK <56>-2 

700 POKE198,1 :P0KES31,131 

READY. 

1 REM**************** 

2 REM*FISHERMAN * 

3 REM*BY NARDINI L. * 

4 REM*VELLETRI CROMA)* 

5 REM**************** 

10 CL$= " 3aIXY||||| 1SE: C ££ 3 tlIIIIISH- ! #$ 11 
£0 DEFFNRNCX ) = I NT CRND ( 1 > *X> 

38 V =36378 : NO= V- 1 :S=V-£:S£=V-3 :S3=V-4: CO=30720 :E6=£000 :TT = ££:T6=£56 : 2=32 : DE=60 
40 GOTO7000 
100 GL =3 ;SC = . 

105 EG =2000 

110 P0KE36869,255 

120 PR I NT » ^■■■■^■■■■■IglBlPlPlPlia»aBMiaia«aPigmaiagM ^II«a^AIHIia:BfPlFEDIMWIHGMBW^JKKKL " ; 

130 P0KE646,10:PRINT"inirTK" :PRINT"kJ 33D3133333333333333 31||] gfilSIS" :POKEV , 15+16*9 
140 P0KE36873,238 

150 PR I NT " «ggpgl!IBIB»»i "CL^" rTTTTTT*»»»l 11 CL$ " MBDMM 51 CL$; 

160 pr i nt•• grimi3 3iiiam*03lana*+, ibis-. - 

170 FRI NT "ai/" se; :P0KES46,3:PRINT ,, aa"; : I FGL > 1 THENFORT= 1TOGL - 1 : PR I NT " S " ; : NEXT 
180 LQ = 8128 ;PCKELQ+CO,10JPOKELO,13 :POKELO-TT,17 :POKELO-TT + CO,10:POKELO-1,15 
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190 POKELO-1+CO, . :CL=L0-1 :POKES132+C0,10:POKE8 110+CO,10 :P0KE8 133+CO ,. 

200 TY=FNRN(2) + 1 :0NTYG0T0210,300 

2 10 X=FNRN(2) + 1 :ONXGOTO220 ,230 

220 BC=3142:EC=3149:SP=1:DD=21:GOTO240 

230 BC=3163 :EC = 8155 :SP = -1 :DD=22 

240 FORDL = BCTOECSTEPSP:POKEDL,DD:POKEDL+CO,. 

250 GOSUB1000 :POKEDL,Z:NEXT: IFSD< >196THEN3000 
260 SD=.iGOTO200 

300 NU =. :Y=59:C=6:X=FNRN(2) + 1 :0NXG0T0310,320 
310 B=?776:E=3084:GOTO330 
320 B=7758:E=8088 

330 FORDL=BTOESTEPTT:POKEDL+CO,C:POKEDL,Y:GOSUB1000 
340 POKEDL,Z:NEXT:IFSP<>T6THEN300 
350 SP=. : GOTO200 

1000 CK=PEEK(197):1FCK=64THENFORR=0TODE:NEXT:RETURN 

1010 IFCK=29ANDL0=8132THEN1500 

1020 IFCK = 37ANDL0 = 8128THEN1750 

1030 IFCK=ZTHENONTYGOTO2000,3500 

1040 RETURN 

1500 F'CKELO , Z : POKELO -TT , Z :POKECL,Z : LO = 8 128 : CL = LO- 1 

15 10 POKELO , 18 : POKELO-TT, 17: POKECL , 15 : FORSD = 130TO 150STEP2 : P0KES2 ,SD : NEXT:.P0KES2 , 
1520 RETURN 

1750 POKELO,Z:POKELO-TT,Z:POKECL,Z: LO = 8132 :CL = LO+1 
1760 POKELO,20 :POKELO-TT,19 :POKECL,13 

1770 FORSD=150TO130STEP-2:P0KES2,SD:NEXT:P0KES2,. : RETURN 

2000 POKECL ,PEEK(CL) + 1 :FORSD=250TO200STEP-10 :POKENO,SD:NEXT: IFPEEK(CL+TT)=DDTHEN 
2 100 

20 10 POKECL,PEEK(CL)-1 :POKENO,. : RETURN 
2 100 SC =SC +75 :PRINT"g®/"3C:GOSUB4000 

2 110 POKEDL,58 :FORSD=254T0198STEP-2 :POKEDL+CO,FNRN(8):POKENO,SD :NEXT 
2120 POKENO,.:GOTO2010 

3300 GL =GL- 1 :FORT=130TO254STEP2:POKES,T:POKENO,T:POKEV,15+FNRNC16>*16:NEXT 

30 10 POKELO-TT,218 :FORT=15TO0STEP-.2:POKES,.:POKENO,160 :POKEV,T+FNRN<16)*16:NEXT 

3020 IFGL =.THEN7000 

3030 POKENO,. : GOTO 128 

3500 IFNU >2THENRETURN 

35 18 NU = N!J+ 1 : POKELO-44,60 : POKELO-44+CO , 4 : FORSD = 150TO 1 80STEP 10 : P0KES2 , SD : NEXT : POK 
ES2 , . 

3520 IFPEEK(LO-66)=59THEN3600 
3530 P0KE(L0-44),Z: RETURN 

3600 SC = SC +50 :PRINT""SC:GOSUB4000:POKELO-66,61 
3610 FORSP=200TO254STEP2:POKES,SP:NEXT:POKES,. 

3620 P0KEL0-66,Z: RETURN 

4000 IFSC>EGTHENGL = GL+1 : DE =DE-4 :EG=EG+2000:POKE7700+GL,19 :POKE7700+C0+ GL,8 :G0T04 
020 

4010 RETURN 

4020 FORT=130TO230STEP10 :FORR=T+10TOTSTEP-1:POKES,T:NEXTR,T:POKES,. : RETURN 
7000 P0KE36869,240 :PRINTCHR4K8): IFSC >HSTHENHS = SC 


70 10 P0KE36879,8 :P0KE646,10 :PRINT" iJ" 

7030 PR I NT " i-, n ” SPRINT" | r - 1 11" 

7040 PRINT" | L-n-1 '-r—i-!-.-.-. I H I—l n I 1 I ri lilnl" 

7850 PR INT " IMI—IMI—INNI IMI L -‘ «- 1 —«- 1 LJ —«-J 111111 1 ^ " 

7055 PRINT 

7060 PR I NT " «MIMIE CORE : " SC : PR I NT » «1—MR ECQRD : “HS 
7070 PR I NT » ilMIP REM I UN TASTO" 

7080 PRINT"23 COMMAND I Si <-SIN. ":PRINT"H >-DEST. " 

7090 PRINT"3SPACE= REMO O OMBRELLOD" :POKENO,. 


7100 P0KE36878,(FNRN(14)+2)*16:IFPEEK(197)=64THEN7100 
7110 GOTO 100 
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BOXE 

di Massimo Moras 


Siete sul ring e dovete battere a suon di pugni 
il pugile avversario manovrato dal computer. 
Per spostare il vostro pugile, di colore blu, 
dovete premere in continuazione i tasti di 
controllo cursore mentre per portare i colpi è 
necessario premere la barra spaziatrice. 

Il punteggio viene assegnato nel modo 
seguente: 


- 1 se il pugno va a vuoto 
+ 1 se il pugno tocca l’avversario 
+ 2 se il pugno va più a fondo 

Alla fine dei tre minuti a disposizione chi avrà 
totalizzato il maggior numero di punti avrà vinto 
il match. 


2 REM * 

3 REM * 

4 REM * 

5 REM * 

6 REM * 

7 REM * 

8 REM * 

9 REM * 





BOXE 
by Moras Mass Imo 
PORDENONE 


10 REMXXXXXXX***************** 
12 COLOR,,,2 
15 PRINT"@" 

20 CONSOLE 7,9,7,26 
25 COLOR,,0,6 
30 PRINT"@" 


)) 


40 PRINT" 

C8C8C8C8 C8C8C8 

C8 

1° 

la) 

lo 

8C8C8C8" 






45 PRINT" 

•I 

C8 

C8 C8 

C8 

si 

00| 

ul 

ca 

50 PRINT" 

•I 

C8 

C8 C8 

C8 

C8 C8 

cs 

55 PRINT" 

C8C8C8C8 C8 

C£ 

C8 

C8C 

8C8 - 






60 PRINT" 


l n 

la) 

l n 

la) 

C£ 

C§ C§ 

C8 


65 PRINT" C8 C8 C8 C8 £8 £§ £8 

70 PRINT" C8C8C8C8 C8C8C8 ££ C8 C 
8C8C8C8" 

80 CONSOLE 0,25 
82 6=0 :B=36 
85 FOR 1=1 TO 8 
87 6=6+2 :B=B-2 

90 CURSOR 0, 19 :PRINTC0,23T6BC63 ; 11 " ,'CHR 

$ C1933;CHR$C2413 

92 PRINTC0,23T6BCB3 ,'CHR$C241 3 ;CHR$C2 
1331" " 

95 TEMPO 7 -'MUSIC+DI " 

100 FOR 11=1 TO 300:NEXT II 
110 NEXT 

115 TEMPO 5:MUSIC"-G5" 

120 CURSOR 1,22:PRINT[7,2]"Premi un tast 

o per com i nc 1 are 11 

130 GET 6$'IF 6$="" THEN 130 

140 CLR 

150 COLOR ,,,0 
152 PRINT"@" 

155 CURSOR 0,0 :PRINTU,03T6BC183;CHR$C20 
03;" " ;CHR$C2003 
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160 CURSOR 0, 1 :PRINT[0, 1 3TABC163 ,’CHR$C20 
13;" ";CHR$C2543 

165 CURSOR 0,2:PRINTE0,13TOBC153;CHR$C20 
13 5" ";CHR$C2543 

120 CURSOR 0,3:PRINTC6,0JT6BC113;CHR$C20 
23 ;CHR$C194 3 JTABC223 ;CHR$C134 3 ;CHR$C2023 
125 PRINT[0,63TOBC133;CHR$C2153;" 

” ;CHR$C2153 

180 CURSOR 0,4:PRINT[6,0]TABC23;CHR$C202 
3 ;CHR$C1943 JTABC313;CHR$C1943;CHR$C2023 
185 PRINT[0,63TABC93 ;"W l ;CHR$C2153 ; " 

" ;CHR$C2153 

190 CURSOR 0, 5 SPRINT[6,0JTOBC33.;CHR$C202 
3 ;CHR$C1943 JTABC353 ;CHR$C1943;CHR$C2023 
195 PRINTC0,63TABC53;"S";CHR$C2153;" 

";CHR$C2153 

200 CURSOR 0,6 :PRINTC0,63;CHR$C2163;CHR$ 

C21 53 5T6BC383 ;CHR$C2153;CHR$C2163 
205 CURSOR 2,6:PRINTC2,63;" " ;CHR$C21 

33;" " ;CHR$C193 

3 ; " 

210 CURSOR 0, 2 JPRINTL0J 63 " :, ;CHR$C12 

53; TABE343;CHR$C1213;" 

215 CURSOR 6,2:PRINTC2,63CHR$C2133 

" ;CHR$C1933 

220 FOR 1=2 TO 32 

225 CURSOR 1,2 :PRINTC0,63CHR$C2153 
230 NEXT 

235 CURSOR 0,8:PRINTC0,63" ";CHR$C12 

63;TABC343 ;CHR$C1223 ;" 

240 COLOR,,2,6:CURSOR 6,8:PRINT CHR$C213 
3 : CURSOR 6,9:PRINT CHR$ C 21 3 3 •’ CURSOR 33,8 
:PRINT CHR$C1933=CURSOR 33,9:PRINT CHR$C 
1 933 

245 FOR 1=2 TÒ 32 

250 CURSOR I,8:PRINT[0,63CHR$C2023 
255 NEXT 

260 CURSOR 0,9:PRINT[0,6J" ";CHR$C125 

3 ;CHR$C1253 ;TABC23 ;" 

";TAB(343 ;CHR$C1213;CHR$C1213 ;" 

•l 

262 1 = 1 :11=20 

265 FOR 1=1 TO 38 

220 CURSOR I,II:PRINT[,2J" " 

223 NEXT 

225 11=11+1 

222 IF 11=24 THEN 285 

280 GOTO 265 

285 CURSOR 6,10:PRINTC,5J" 

•I 

290 CURSOR 0,10:PRINT[0,63" ";CHR$C12 

63;CHR$C1263; TABE 343;CHR$C1223;CHR$C1223 
295 CURSOR 0,11 .’PRINTCO,63 " ";CHR$C125 

3 ;CHR$C125 3 ; TABE 353 ;CHR$E1213;CHR$C121 3 ; 

•1 II 


300 CURSOR 5,11 :PRINTC6,53CHR$C2133 ;" 

";CHR$ C1933 

305 CURSOR 36,10 :PRINTC0,63" 

310 CURSOR 0,12-PRINTC0,63" ";CHR$C126 

3;CHR$E1263; TABE 353;CHR$C1223;CHR$E1223; 

•I II 

315 CURSOR 5,12 :PRINTC0,53" 

•I 

320 CURSOR 0,13:PRINT[0,63" " ;CHR$C1253 

;CHR$E1253 JTABE363 ;CHR$C1213 ;CHR$C1213 ; " 

•I 

325 CURSOR 4,13 :PRINTE6,53CHR$E2133 ; " 

";CHR$C1933 

330 CURSOR 0, 14 :PRINTC0,63" ";CHR$C1263 
;CHR$C1263 JTABE363;CHR$E1223 ;CHR$C1223 ; " 

•I 

335 CURSOR 4,14 :PRINTC,53" 

•l 

340 CURSOR 0,15 :PRINTC0,63" " ;CHR$E1253 ; 
CHR$C1253; TABE 323;CHR$C1213;CHR$C1213 ;" 

ri 

345 CURSOR 3,15 :PRINTC6,53CHR$C2133 ;" 

" ,'CHR$C 1933 

350 CURSOR 1 , 16:PRINT[0,63CHR$C1263. ;CHR$ 
E 1263 ; TABE 323 ;CHR$E1223 ;CHR$E1223 
352 CURSOR 3, 16 :PRINTC,53" 

•l 

355 CURSOR 1,12 :PRINTC0,63CHR$E1253 ;TABE 
383;CHR$C1213 

360 CURSOR 2,12:PRINTC6,53CHR$C2133J" 

";CHR$C19 
33 

365 CURSOR 1 ,18:PRINTC0,63CHR$C1263;TABE 
383;CHR$C1223 

320 CURSOR 2, 18:PRINT[,53" 

•l 

325 CURSOR 1,19 :PRINTE6,53CHRSE2133 ;" 

M ;chr$c 

1933 

380 FOR 1=16 TO 23 

385 CURSOR 0, I :PRINTC6,23CHR$E21 33 

390 NEXT I 

410 FOR 1=16 TO 22 

415 CURSOR 39, I :PRINTC2,63CHR$C2133 

420 NEXT I 

440 FOR 1=1 TO 3000:NEXT 
450 TEMPO 4 :MUSIC"+D5" 

500 A=12:B=25 
525 TI$="000000" 

550 CURSOR 3,1:PRINT[1,03"B L U ";F;" " 

:CURSOR 28,1 :PRINTC2,03G;" R E D" 

565 2$=MID$ETI$,4,13:U$=RIGHT$E-TI$,23 
520 CURSOR 12,22:PRINTC2,232$":"U$ 

580 IF TI$="000300"THEN TEMPO 4:MUSIC"+D 
4" 
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590 IF 2$="3"THEN 1 100 

600 CURSOR 9-1,8=PRINTE0,63CHR$C2073;TAB 
C Ah- 1 3 ,’CHR$ C207 3 : CURSOR 9,8 :PRINTE0,3] ;CH 
P$(2153 

605 CURSOR 9-2,9:PRINT[0,6]" ";T9BC9+13J 
" " :CURSOR A-1,9:PRINTE6,13CHR$C2013“ 
610.CURSOR 9-2, 1 0 -’PRINT E, 53 " M ;T9BC9+33 5 
" ":CURSOR 9-1 , 1 0 :PRINTC, 1 3" " -'CURSOR 9, 

1 0 2PRINTC 1,3]" !l ;CHR$C 1 933 
615 CURSOR 0+2, 10 :PRINTE1,53CHR$C2413 
620 CURSOR 9-2, 1 1 :PRINTC,5] n " TOBCO+1 3 ,' 
" ‘':CURSOR 9-1,11 :PRINTUÌ , 53CHR$C2003 ;CH 
R$C2013 

625 CURSOR 9-2,12 :PRINTE7,5]" " ;CHR$C200 
3 ;CHR$C2333 1! 

630 CURSOR 9-2, 1 3 :PRINTC, 53" " ,*T9BC9+23 ; 
" " : CURSOR 9-1, 13:PRINT[3,73CHR$C2333 ;CH 
R$C245 3 : CURSOR 9+1,13:PRINTC3,53CHR$C233 
3 

635 CURSOR 9-2, 1 4 :PRINTE3,53 " " ,’CHR$C200 
3 ;CHR$C2543 ;CHR$C2003 ; !l " 

640 CURSOR 9-3,15 :PRINTC7,5J" " ;CHR$C245 
3 JT9BC93 ; 11 " JT9BC9+23 ; " " :CURSOR 9-1,15: 
PRINTE3,53CHR$C2013 :CURSOR 9+1,15 :PRINTC 
7,33 CHR$ C194 3 

645 CURSOR 0-4,16 :PRINTE0,53" " ;CHR$C245 
3 ;CHR$C201 3 !l ,*CHR$C2003 ; " " 

690 FOR 1=1 TO 5 
700 GET 9$ 

705 IF O$="0"THEN 9=9-1 

707 IF 9=8 THEN 9=9:G0T0 550 

710 IF O$="0"THEN 9=9+1 

715 IF 9+3=.B THEN 9=9-1 :GOTO 550 

720 IF 0$=" "THEN 800 

730 NEXT I 

750 GOTO 900 

800 CURSOR 9+1,9 :PRINT[1,33CHR$C213 3 ì ” " 
;CHR$ C193 3 :CURSOR 9 + 4,9 :PRINT[1,63CHR$C2 
41 3 

805 TEMPO 7 :MUSIC" + C1" 

810 CURSOR 9-2,10:PRINTC3,5JCHR$C2453:CU 
RSOR 9,10:PRINT[1,53CHR$C2003 ;CHR$C2413 
812 CURSOR 9+2,10 :PRINTC,53" " 

815 FOR 1 = 1 TO 400 :NEXT 
820 CURSOR 9+1,9:PRINT[0,63" 

825 IF 9+5=B THEN F=F+1 
830 IF 9+4=B THEN F=F+2 
835 IF 9+6=B THEN F=F-1 

837 IF 9+7=B THEN F=F-1 

838 IF 9+8=B THEN F=F-1 

900 CURSOR B,8 :PRINTE0,33CHR$C2153 

905 CURSOR B-1,8:PRINTC0,63CHR$C2073 ,*T9B 

CB+13 ;CHR$C2073 

910 CURSOR B-1,9:PRINT[0,6J" ";TOBCB+23; 

" " :CURSOR B,9:PRINTC2,63CHR$C2003 ,’CHR$C 


2333 

915 CURSOR B~3, 10 :PRINTC2,5J" ";CHR$C241 
3;T9BCB+k3;CHR$C2003;" " 

920 CURSOR B-1,10:PRINTE2,33CHR$C2133j" 

•i 

925 CURSOR B~1,11 :PRINTE2,53" ",'CHR$C254 
3 ; CHR$ C200 3 ;" ” 

930 CURSOR B-1 , 1 2 :PRINTE7,53 " ";CHR$C245 
3;CHR$C2003 ; " " 

935 CURSOR B-2, 1 3 .’PRINTE3,53 " " ;CHR$C245 
3JT9BCB+23 ; " " 

940 CURSOR B,13:PRINTE3,73CHR$C2333JCHR$ 
f 245 3 

945 CURSOR B-2, 1 4 :PRINTE3, 53 " ", a CHR$C200 
3 ;CHR$C201 3 ;CHR$C2003 5 " 

950 CURSOR B-2,15 :PRINTE3,53" ";TOBCB3;" 

" ,"CHR$C2543 5T9BCB + 33 ;" " 

955 CURSOR B-1, 15 : PRI NT E 3,73CHR$C2163 : CU 
RSOR B+2, 15 :PRINTE7,53CHR$C2333 
960 CURSOR B-2,16 :PRINTE0,53" " ;CHR$C200 
3" " ,’CHR$C2543 ;CHR$C2333 J" i: 

970 C=IN3C6XRNDC13 3 

975 IF C=0 THEN B=B-1 

976 IF C=4 THEN B=B-1 

977 IF C=2 THEN 1000 

978 IF C=3 THEN 1000 

979 IF C=5 THEN 1000 

980 IF. C=1 THEN B=B+1 

984 IF B-3=9 THEN B=B+1 

985 IF B=30 THEN B=29 

986 IF B=12 THEN B=13 

987 GOTO 550 

1000 CURSOR B~4,9:PRINTE2,63CHR$C2413 : CU 
RSOR B~3,9 :PRINTE2,33CHR$C2133 "jCHR$C 

1933 

1005 TEMPO 7 ; MUSIC"-C1" 

1010 CURSOR B-2, 10 :PRINTE2,53" ";CHR$C24 
1 3 ;CHR$C2003 -'CURSOR B+2, 1 0 :PRINTE3,53CHR 
$ C 233 3 

1020 FOR 1 = 1 TO 400 =NEXT 
1030 CURSOR B-4,9 :PRI NT E,63" 

1032 IF B-4=0 3 HEN G=G+2 
1035 IF B-5=0 THEN G=G+1 
1040 G03 0 550 

1100 IF F>G THEN TEMPO 7:MUSIC"E5G7E5G7R 
3E3G5E3G5E3G5" 

1105 IF G>F THEN 1130 

1110 IF F>G THEN CURSOR 2,20 :PRINTE7,23" 
CompI imenii, ^uoi ricominciare?!S/N3" 
1120 GET A$:lF 0$=""THEN 1120 

1122 IF 0$="S"THEN 10 

1125 COLOR,,7,0 :PRIN3 "0" :END 

H30 CURSOR 2,20 :PRI NI E 7, 23 "Peccato, ouo 

! riprovare ? CS/N3" 

1140 GOIO 1120 
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TIRO A VOLO 

di Simone Grandis 


Per questo gioco dovrete usare esclusivamente 
il joystick. Consiste nel colpire un piattello 
lanciato casualmente da una fantomatica 
macchina. Di tanto in tanto apparirà sullo 
schermo un uccello che disturberà le 
esercitazioni, ma a suo rischio e pericolo!! 
Infatti, riuscire ad abbatterlo viene considerato 
un titolo di destrezza e ciò fa logicamente 
aumentare il punteggio. 


Ogni 10 piattelli colpiti cambiano lo sfondo e le 
difficoltà. Abbiamo provato il gioco in redazione 
ma, causa la scarsa capacità del giocatore di 
turno, non siamo riusciti a vedere lo sfondo con 
le montagne (citate dall’autore) dietro le quali il 
piattello dovrebbe scomparire. 

N.B.: Le lettere sottolineate nel listato vanno 
digitate con il modo grafico inserito (*). 





10 REn *************** 

20 REM * * 

30 REM * TIRO A U0L0 * 

40 REM * * 

50 REM *************** 

60 REM 

70 REM by SIMONE GRONDIS 
80 REM uia COLLI E. n. 15 
90 REM BATTAGLIO TERME 35041 
100 REM CPADOUAJ 


200 SCREEN 2,2 :CLS:SCREEN 2,2:CLS:C0L0 
RI,15,C0,03-C0,01,5 

210 PATTERNS#6,"007C101010101010" ; REM 
T 

220 PATTERNS47,"0010101010101010":REM 
I 

230 PATTERNS48,"0078444478504844" :REM 
R 

240 PATTERNS49,"001C22222222221C":REM 
0 

250 PATTERNS412,"001C22223E222222":REM 
A 
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260 P6TTERNS#13,"002020202020203E" : REM 
L 

270 P6TTERNS# 14, "0042422424241818" :REN 
U 

290 FOR 6=0 TO 45 STEP 5 

300 SPRITE6,C 97,63,6,8 

310 SPRITE7,C107,63,7,8 

320 SPRITE8,C117,63,8,8 

330 SPRITE9,C127,63,9,8:NEXT 6 

335 FOR B=1 TO 115 STEP 5 

340 SPRITE12,CB,663,12,12:NEXT B 

355 FOR D=191 TO 85 STEP-10 

360 SPRITE13,C90,D3,14,7 

370 SPRITE14,C105,□3,9,7 

380 SPRITE15, C120, D3, 13,7 

385 SPRITE16,C135,D3,9,7 :NEXT D 

400 CURS0R66,130=COLORl:PRINT "by S I mo 

ne Gr an d i s " 

405 CURS0R64, 150 .‘COLORI 1 :PRINT "Sega C 
omputer 1984" 

410 CURS0R36,170:C0L0R4:PRINT "premi u 
n tasto per continuare" 

420 ri6G2 : SOUND 1, 110, 15 : FOR U=1 TO 30:N 
EXT 

430 f1OG0 : SOUND 1,600, 15 :FOR U=1 TO 30:N 
EXT 

440 IF INKEY$="" THEN GOTO 420 
450 BEEP :BEEP .-SCREEN l,l:CLS 
460 FOR 6=1 TO 23 STEP 2 
470 CURSOR0,6 :C0L0R4 :PRINT " U U U U U 
UUUUUUUUUUUUUU " :NEXT 6 
480 CLS:C0L0R8,15 

500 CLS :PRINT:PRINT " TIRO 6 

UOLO":PRINT SPRINT "In questo gioco t 
u comandi un mirino e devi cercare di 
colpire i piattelli che a mano a mano 
verranno lanciati." 

520 PRINT :PRINT "Dorrai cercare di no 
n fartene sfuggirepiu’ di 3 in uno sch 
ema altrimenti la partita finirà’; ogn 
i 10 lanci comincera’ un nuovo 

schema con una grafica dI versa." 

530 PRINT :PR1NT "ria stai attento che 
andando acanti cong l i schemi il piatte 
Ilo si muovera’ piu’ velocemente." 
540 PRINT :PRINT "Ogni tanto comparirà 
’ uno strano uccello che tu dovrà 

i cercare di abbattere,ma stai at 

tento perche’ puo’anche sparire." 

550 PRINT :PRINT " premi un tasto p 
er continuare" 

560 IF INKEY$="" THEN GOTO 560 
570 BEEP:BEEP:CLS 


577 PRINT :PRINT "I punti sono: 


PI6TTELL0 ? 10-90 
UCCELLO ? 500-1000" 

580 PRINT :PRINT "Per il movimento del 
mirino usa la leva del joistick,pe 
r lo sparo usa unodei pulsanti" 

590 PRINT :PRINT "Se non poss ied i l l J 
oìstick modifica le Linee da 1240 a 1 * 
350. CFal attenzione anda 

ndo avanti con glischermi che quando a 
vrai come scenar io le montagne, i lpiatte 
ILo potrà’ anche sparire23" 

600 PRINT :PRINT " premi un tasto p 
e r iniziare" 


610 IF INKEY$="" THEN GOTO 610 
620 BEEP :BEEP 
1000 CLS 

1010 S6L=6 :T = INT CRNDC1 3X200 3+50 :TT=INT 

CRNDC13X1203+50:MNB=1 :l.K=20 

1020 PU=0 :S =1 :L=10 :X=120:R=1 :Y=90 

1030 U=20:UI = 1 :Q=176 

1080 SCREEN 2,2 : CLS : COLORI, 15 

1090 SCREEN 2,2 : CLS : COLORI,15 

1100 P6TTERNS#1,"00007EEBD77E0000" 

1110 P6TTERNS#4,"0042651818240000" 

1120 P6TTERNS#2,"00007EEBD77E0000" 

1130 P6TTERNS#0,"8142241818244281" 

1140 P6TTERNS#3,"0E3C78707070381E" 

1150 P6TTERNS#5,"001C3E6381800000" 

1160 P6TTERNC#64,"101038FE38101000" 
1170 P6TTERNS#10,"925400C600549200" 
1180 P6TTERNS#11,"2418182424120900" 
1190 P6TTÉRNS#20,"0000000000000000" 
1200 CURS0R32,6 :PRINT "1 2 3 4 5 6 7 8 
9 10 123" 

1210 LINE C0,253-C255,253,8 
1220 1=25+1 NT CRNDC13X1653 
1230 FOR 0=0 TO 257 STEP S6L 


1240 21=STICK(13:Q1=STRIGC13 
1260 IF 21=1 THEN Y=Y-8 


1270 IF 21=2 
1280NIF 21=3 
1290 IF 21=4 
1300 IF 21=5 
1310 IF 21=6 
1320 IF 21=7 
1330 IF 21=8 


THEN Y=Y-8:X=X+8 
THEN X=X+8 
THEN X=X+8 •" Y=Y+8 
THEN Y=Y + 8 
THEN Y=Y+8:X=X-8 
THEN X=X-8 
THEN X=X-8:Y=Y-8 
1340 IF Q1<> 0 THENBEEP : IF 6BSCX-0 + 83<8 
6ND6BSCY-8-I+83<8THENG0T0 1830 
1350 IF Q1O06ND 6BSCX-8-T + 83 <86ND6BSC 
Y-8-TT+83<86NDLK=4THENG0T0 1840 
1360 IF X<0 THEN X=255 
1370 IF T<16THEN T=240 
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1380 IF X>255 THEN X=0 
1330 IF T>240 THEN T=16 
1400 IF T<25THEN T=191 
1410 IFTT<35THENTT=180 
1420 IF Y>191THEN Y=25 
1430 IFTT>180THENTT=35 
1440 1=1+RADC03-3 
1450 SPRITE0,CX,Y3,0,12 
1460 SPRITE1,CO,13,1,8 
1470 MAG2 

1480 IF RNDC13 <0.02THEN LK = 4 :TIME$ = "01 
: 01 : 00 " 

1490 SPRITE16,CT,TT3,LK,13 
1500 IF TIME$="01:01:09" THEN LK=20 
1510 IF I>191 THEN 1=26 
1520 IF I<25 THEN 1=191 
1530 GHF=INTCRNDC13X43+1 
1540 IF GHF=1THEN T=T-4 
1550 IF GHF=2THEN T=T + 4 
1560 IF GHF=3THENTT=TT-4 
1570 IF GHF=4THEN TT = TT + 4 
1580 NEXT 0 :L=L-1 :GOSUB 1870 
1590 IF L <=0 THEN S=S+1 :U=20:Q=176:UI = 
3 :CLS :CURSOR 95,70:COLOR4 :PRINT "SCHE 
fio " ; S : CURSOR 95, 100 :PRINT"PUNTI = " ; 
PU : FOR T =1 TO 600:NEXT :CLS :L=10 :GOTO 
1610 

1600 GOTO 1680 

1610 H=INTCRNDC13X2553 :G=25+INTCRNDC 1 3 
*191 3 

1620 IF S=2 THEN C0L0R15,1,C0,03-C0,03 
,11 :CLS:SPRITE3,C 150,40 3,3,10:SAL=SAL+ 
2:LK=20 :GOSUB1690 

1630 IF S=3 THEN COLORI,15,C0,03-C0,03 
,13:SPRITE3,CI 60,403,3,10 : CLS : SAL=SAL + 
2:LK=20:GOSUB 1730 

1640 IF S=4 THEN SAL=SAL+2:GOSUB 4000 
1650 IF S>4 THEN HJK=INTCRNDC13X153 + 1 : 
LK=20 : COLOR 1,15,C0,03-C0,03,HJK:CLS:GO 
TO 1230 

1660 GOTO 1200 
1670 GOTO 1200 
1680 GOTO 1200 
1690 FOR N=0 TO 20 

1700 H=INTCRNDC 1 3X2473:G=25+INTCRNDC13 
*1573 

1710 CURSORH,G:COLOR10:PRINT "8" 

1720 NEXT N:RETURN 
1730 REM NUUOLE 

1740 PATTERNC#33,"011A24404040330C" 
1750 PATTERNC435,"807008040301916C" 
1755 CIRCLEC150,703,8,11, , , , BF 


1760 FOR N=0 TO 20 

1770 H=INTCRNDC 1 3X247 3 :G=25 +1NTCRNDC13 
X157 3 

1780 CURSORH,G :C0L0R7 :PRI NT "2#" 

1790 NEXT N : RETURN 
1800 RETURN 

1830 PO=INTC CRNDC13X93 + 13X10 :SPRI TE 10, 
CO-8,I 3, 10,8=SOUND 1,200,15 : SOUND 1,500 
, 15 :PU=PU+PO :L=L-1 :SOUND0 :U=U+12 :CURSO 
RU, 15 = PRINT 'LJJ' :CURS0R0 + 5, 1+4 :C0L0R8 :P 
RINT PO : GOTO 1590 

1840 BUS=INTCCRNDC 1 3X23 + 1 3X500:FOR D=T 
T TO 185 STEP10:SPRITE25,C T,D 3,11,13:S 
OUND1, 1000, 15 : SOUND 1,200,15:SOUND0:NEX 
T D :CURSORT,TT:COLOR 13:PRINT BUS=T = T + I 
NTCRNDC 1 3X1503 :TT = TT-40 :PU=PU+BUS 
1850 GOTO 1240 
1860 END 

1870 IF UI=0 THEN 1910 
1880 UI=UI-1 

1890 Q=Q + 12 : CURSORQ, 1 5 :PR I NT 'LJ_" 

1900 RETURN 
1910 CLS 

2000 FOR 2=1 TO 11 

2010 READ Q 

2020 SOUND 1,Q,15 

2030 FOR E=1 TO 50:NEXT E 

2040 SOUND0 

2050 NEXT 2 

2060 DATA 115,115,115,115,140,130,130, 
115,115,110,115 

2140 SCR.EEN 2,2 :CLS :CURSOR90 ,90:PRINT 
"GAME OUER" 

2150 CURSOR70,120:PRINT 'Vuoi rigiocar 
e? CS-N3" 

2160 IF INKET$="S" THEN GOTO 1000 
2170 IF INKEY$ = "N"' THEN GOTO 3000 
2180 IF INKEY$<>"S"ORINKEY$<>"N" THEN 
GOTO 2160 

3000 CLSCURSORI 10,90 :PRINT "CIAO" 

3010 FOR U=1 TO 1500:NEXT : END • 

4000 SCREEN 2,2 : COLORI,15 :LINE C0,1803 
-C 50,1503 

4010 LINE C50,1503-C80,1703 
4020 LINE C80,1703-C120,1303 
4030 LINE C120,1303-C150,1223 
4040 LINE C150,1223-C170,1003 
4050 LINE C170,1003-C200,1503 
4060 LINE C200,1503-C225,1603 
4070 LINE. C225,1603-C255,1453 
4080 PAINTC0,1913,8 
4100 RETURN 
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FLIGHTPLAN 


di Marco Olivotto 



Il programma, realizzato con l’ausilio del 
SIMONS’ BASIC, mira a semplificare la stesura 
di un piano di volo con riferimento ad un certo 
numero di flight positions. Esso prevede 
l’introduzione — da tastiera o da file — delle 
coordinate geografiche di un certo numero di 
punti prefissati dall’utente, della velocità al 
suolo relativamente a ciascuna tratta di rotta e 
del consumo orario dell’aereomobile utilizzato a 
tale regime. 

Le coordinate geografiche devono essere 
inserite in forma intera, come da prassi 
aereonautica (ad esempio 105 gradi e 43 primi 
verrà digitato 10543). 

Inoltre, ma non necessariamente, possono 
essere assegnati nomi a ciascuna flight 
position. Dopo l’eventuale correzione delle 
immissioni il programma provvede a fornire le 
distanze tra i punti scelti, il tempo di volo per 
ciascuna tratta, la rotta magnetica ed il 
consumo di carburante; gli stessi dati, eccetto 
la rotta magnetica, vengono forniti 
relativamente al percorso totale. È possibile 
avere la rappresentazione grafica della rotta 
scelta visualizzata in alta risoluzione all’interno 
di una window 180 x 180 punti 


autodimensionata in modo da ottenere la 
massima risoluzione, mentre vengono 
evindenziati anche i punti corrispondenti alle 
flight positions scelte. 

Un’ultima opzione permette di scegliere se 
«salvare» o meno i dati di un piano di volo su 
cassetta. 

Tutti i passi del programma sono accompagnati 
da istruzioni che aiutano l’utente a scegliere le 
varie opzioni; da ricordare che al momento del 
display i risultati verranno visualizzati uno alla 
volta per cui si dovrà premere la barra 
spaziatrice per il successivo. 

Il tempo di elaborazione è contenuto in circa 14 
secondi per un volo con 15 flight positions. 


1 REM# ********************** ****** ***** 

2 REM* * * FL I G H T P L A N *** 

3 REM*** BY OHM 1 S SOFTWARE *** 1384 *** 


4 

REM*** AUTHOR: 

MARCO OLIVOTTO 

* * * 

5 

REM*** 

V.DELL'A6ET0NE 6/A 

** * 

6 

REM*** 

ROVERETO - TN 

* * * 

7 

REM*** 


* * * 


8 REM********************************** 
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9 PRINT*LMBB" SCENTRE "flFLIGHTPLAN" : PAUSE 1 

10 PR INT H jnmH" :CENTRE "BY OHM ' S SOFTWARE *** 1984 " : PAUSE3 

11 1NPUT ■ .JarJO . OF FLYING POSITIONS";N 

12 DIMFP3KN),E(N*4),D<N-1),T<N-1 ),F<N-1),TRCN-1),PAR<N),MER(N),DP<N),DM<N) 

13 PR INT " kJ^O YOU WANT TO ENTER DATA FROM: " 

14 PR INT"HflKS^YBOARD " 

15 PR I NT " flTTBFìPE " 

16 PROCFIRST 

17 GETM*:IFM*="K"THENCALLKEYER 

18 IFM^="T"THENND =1 :CALLLDR 

19 CALLFIRST 

20 PROCKEYER 

2 1 PRINT”iJ" SFORI = 1T0N 

22 PRI NT "FLIGHT POSITION NUMBER " * I 

23 I NPUT " HMAME.";FP*<I) 

24 INPUT" BPEPARTURE PARALLEL. . . . "; E(I*4-3):DP<I)=E<I*4-3) 

25 INPUT"DEPARTURE MERIDIAN. . . . "; E<I*4-2):DM<I)=E<I*4-2) 

26 I NPUT " SPEED.VECI *4-1) 

27 INPUT"FUEL FLOU <HOURLY). . . . "; E<I*4):PRINT" H" :NEXTI 

28 PROCCHOI 

29 INPUT "UDO YOU WANT TO REVIEW IY/N]" ,* A$ 

30 IFA$="Y"THENCALLREVI 

3 1 FOR1 = 1TON:FORJ =3T02STEP-1 

32 E < I*4-J)=E(I*4-J)/100 

33 E < I *4 - J ) = < INT (E < I *4-J ) )+<FRAC<E< I*4-J) ) )* 1 00/60 )* ■&/180 

34 NEXTJ,I 

35 FOR1=1TON-1 

36 PDI=E< 1*4+1 )-E(1*4-3):MDI=E<1*4+2)-E<1*4-2) 

37 ARG =SIN<E(I *4-3 ) ) *S IN < E < I *4 + 1 ))+COS<E<I*4-3))*COS<E<1*4+1))*COS(MDI) 

38 DEFFNACS (X ) = -ATN(X/SQR ( 1-X*X) )+,f/2 

39 D<I)=FNACS<ARG)*60*180/rf 

40 T<I)=D<I)*60/EC1*4-1) 

41 F<I)=TCI)*E<I*4)/60 

42 D <I) = INT C D (I )*100+.5)/100 

43 T(I) = INT<T<I)*100+.5)/100 

44 IFMDI=0ANDE CI*4-3)>E<I*4+1)THENTR <I) = 180 :CALLLINK 

45 IFMDI=0ANDE<1*4-3)<E<1*4+1)THENTR<I)=0 :CALLLINK 

46 AGL=SIN<MDI)/<COS(E<1*4-3))*TAN(ECI*4+1))-SIN<E<I*4-3))*COS(MDI)) 

47 TR < I ) =ATN( AGL ) * 180/<r 

48 IFPDI<0THENTR <I)=TR <I) + 180 

49 IFMDI<0THENTR <I)=TR <I)+360 

50 PROCLINK 

51 IFTRCI)>360THENTR<I)=TR<I)-360 

52 TR < I ) = I NT < TR < I ) + . 5 ) 

53 F <I) = INT<F(I)*1000 + .5)/1000 

54 NEXTISPRINT"J" 

55 PROCDISP 

56 FOR1=1TON-1 

57 PRINT"3"FP$<I)"-"FP$<I+1)":" 


58 PR INT "SD ISTANCE." ; O < I ) 

59 PR INT "TI ME." ; T < I ) 

60 PRINT"TRACK." ; TR < I ) 

6 1 PR INT "FUEL." ; F < I ) 

62 PROCGETT 


63 GETA*:IFA*<>" "THENCALLGETT 
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64 PRINT"H":NEXTI 
63 TD = 0 s TT = 0 :TF =0 

66 FOR1=1TON-1 

67 TD=TD+D CI) 

68 TT=TT + T CI) 

69 TF = TF + F < I ) 

70 NEXTI 


7 1 PR INT"gMTOTAL DISTANCE.■ ; TD 

72 PR INT"HTOTAL TIME." ; TT 

73 PR I NT " MTOTAL FUEL.« ; TF 

74 PROCRELI 


75 PRINT"SMISTO SEE THE PLAN AGAIN, HIT flBPACEB. " 

76 PR I NT " UH IT SiS* FOR THE GRAPHIC PAGE.” 

77 PRINT"g|HIT TO FINISH." 

78 PROCCHOO 

79 GETZ$:IF2$ ="E"THENCALLLAST 

80 IFZ$="G"THENCALLGRAPH 

8 1 IFZ$=" "THENPRINT" J" :CALLDISP 
32 CALLCHOO 

83 END 

84 PROCREAI 

85 FOR1=1TON 

86 PR INT "liia"FP$i! I ) 

87 PRINT"HPEPARTURE PARALLEL....";E(1*4-3) 

88 PRINT"DEPARTURE MERIDIAN. . . . " ; E C I *4 -2 ) 

89 PR INT"SPEED.“JEC1*4-1) 

90 PRINT"FUEL FLOU CHOURLY)....";ECI*4) 

91 PRINT"gHIT aBPACE* TO CONTINUE OR TO ED IT. " 

92 PROCGETK 

93 GETA$: IFA$=" "THENNEXTI :CALLCHOI 

94 IFA$="E"THENEXECEDIT 

95 CALLGETK 

96 PROCEDIT 

97 PR INT"^FL IGHT PG3ITION NUMBER " ; I 

98 PR I NT " a^JAME. ";FP$(I) 

99 I NPUT" » :FPÌ( T ì 

100 PRINT"HPEPARTURE PARALLEL.";E<1*4-3) 

10 1 INPUT " » »■»■■■■■■■■ " ; E < I *4 -3 ) : DP CI) =E <1*4-3) 

102 PR I ITT "DEPARTURE MER ID I AN.";E< 1*4-2) 

103 I NPUT” nWMMMWMMMW ; E C 1 *4 -P ) 8 flMC I)=E<1*4-2) 

104 PR INT "SPEED.";E<I*4-1) 

105 i nput " rminmimummn " ; e ci *4 - 1 ) 

106 PRINT"FUEL FLOU CHOURLY)."; E<I*4) 

107 I NPUT " ; E CI*4 ) 

108 PR INT"SSHH IT J8SPACEB TO CONTINUE." 

109 END PROC 

110 PROCGRAPH 

111 FORI = 1T0N:PARC I )=EC1*4-3) s MER CI)=EC1*4-2) : NEXTI 

112 LM=MER C1)SFORI=2T0N: IFMERCI)<LMTHENLM=MERCI) 

113 NEXTI 

114 MM=MER C1):F0RI=2T0N: IFMERCI)>MMTHENMM=MER CI) 

115 NEXTI 

116 LP=PARC1):FORI=2T0NiIFPARCI)<LPTHENLP=PARCI) 

117 NEXTI 

118 MP =PAR C1)SF0RI=2T0NS IFPARCI)>MPTHENMP=PARCI) 

119 NEXTI 
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120 DX = MM-LM:DY = MP-LP 

12 1 IFDX< =DYTHENDX=DY: ELSE :DY=DX 

122 HIRES 1 ,0 

123 REC5,5 ,190,190,1 

124 F OR 1 = 1TON-1 

125 X=<MER<I)-LM)*180/DX+10 

126 Y=CMP-PAR<I))*130/DY+10 

127 X1=<MER<1+1)-LM)*180/DX+10 

128 Y1 = (MP-PAR <I+1))*180/DY +10 

129 L INEX,Y,X1, Y1,1 

130 NEXTI 

131 FOR1=1TON 

132 X = < MER <I>-LM)*180/DX +10 

133 Y = <MP-PARC I)) *180/DY +10 

134 CHARX,Y,87,1,1 

135 NEXTI 

136 TEXT220,30,"3HIT THE",1,2,8 

137 TEXT220,55,"3SPACE BAR",1,2,8 

138 TEXT220,80,"3TO RETURN. ", 1 ,2,8 

139 PROCREPE 

140 GETA$:IFA$<>" "THENCALLREPE 
14 1 NRM5 CALLRELI 

142 END 

143 PROCLDR 

144 INPUT'^AME OF THE FILE"JNF* 

145 PRINT"SEPOSITION THE TAPE CORRECTLY" 

146 OPEN1,1,0,NF$ 

147 FOR1=1TON 

148 INPUT#1,FP*<I> 

149 INPUT#1, E (1*4-3) 

150 INPUT#1,E(I*4-2) 

151 INPUT#1,E<1*4-1) 

152 INPUT#1,E<I*4) 

153 NEXTI 

154 CL03E1 

155 PR I NT " kjtSOL. IST OF FLYING POSITIONS OF THIS FILE:HS" 

156 FORI=1TON 

157 PRINTFPSCI) 

158 NEXTI 

159 PAUSE7 s CALLCHOI 

160 PROCSAVER 

16 1 INPUT"iJ^AME OF THE F ILE " ; NF$ 

162 PR INT-SSSFOS ITION THE TAPE CORRECTLYJfl" 

163 OPEN1,1,2,NF$ 

164 FORI=1TON 

165 PRINT#1,FP$<I) 

166 PRINT#1,DP < I ) 

167 PRINT#1,DM<I) 

168 PRINT#1,E<1*4-1) 

169 PRINT#1,E(I*4) 

170 NEXTI 

171 CLOSE1 

172 PRINT”H0HIDATA STORED ON TAPE END 

173 PROCLAST 

174 INPUT"^DO YOU UIANT TO SAVE THESE DATA CY/N3";S$ 

175 IFS$="Y"THENCALLSAVER 

176 PRINT"LfIND OF THE WORKEND 
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VINCI QUATTRO 

di Davide Imbeni 


È la versione con quattro pedine del famoso 
TRIS o FILETTO; aggiornamento dei punteggi, 
visualizzazione dei nomi dei giocatori e scelta 
dei colori. 


100 REM ****************** 

110 REM * VINCIQUATTRO * 

120 REM ****************** 

130 REM 

140 REM DI:DAVIDE IMBENI 

150 REM VIA BACONE 35 MODENA 

160 REM 

170 CALL CLEAR 
ISO DIM CRQM$(16) 

190 CALL SCREEN(S) 

200 FOR CH=128 TO 144 STEP 8 

210 CALL CHAR(CH,"FFF8F0E0C0808080") 

220 CALL CHAR(CH+1,"FF1F0F0703010101") 

230 CALL CHAR(CH+2,"808080C0E0F0FSFF") 

240 CALL CHAR(CH+3,"01010103070F1FFF") 

250 NEXT CH 

260 CALL CHAR(152,"FFFBF3E4C894A2A1") 

270 CALL CHAR(153,"FF1FCF2713294585") 

280 C^ALL CHAR (154, " Al A294C8E4F3F8FF" ) 

290 CALL CHAR(155,"8545291327CF1FFF") 

300 FRINT TAB(7);"****************": 

:TAB(7) ; "* VINCIQUATTRO *": :TAB(7);"******** 
********": 

310 PRINT " premi un tasto" 

320 CALL KEY(0,K,S) 

330 IF S=0 THEN 320 
340 CALL SOUND(100,880,0) 

350 CALL CLEAR 

360 PRINT "SCEGLI :": :"1)-SPIEGAZIONE": : 

"2)-GIOCO": :::::::::::: 

370 CALL KEY(0,K,S) . 

380 IF S=0 THEN 370 

390 IF (K<49) + (K>50)THEN 370 

400 IF K=49 THEN 2060 

410 IF K=50 THEN 420 

420 CALL CLEAR 

430 INPUT "NOME 1 A GIOCATORE? ":N0ME1T 
440 INPUT "CODICE 1~ COLORE? (3-16) " :CCl 

450 IF (CC1<3> + (CC1>16)THEN 440 
460 PRINT 

470 INPUT "NOME 2 A GIOCATORE? ":N0ME2* 

480 INPUT "CODICE 2"' COLORE? (3-16) " : CC2 

490 IF (CC2<3) + (CC2> 16 ) + (CC2=CC1)THEN 480 
500 CALL COLOR(14,2,CC1) 

510 CALL COLOR(15,2,CC2) 

520 CALL CLEAR 
530 FOR LY=1 TO 6 
540 FOR LH=1 TO 7 
550 JH(LY,LH)=0 
560 NEXT LH 
570 NEXT LY 
580 M0SSE=0 

590 FOR CHR0M0=1 TO 13 
600 CALL COLOR(CHROMO,1,1) 

610 NEXT CHROMO 


620 FOR V=1 TO 6 

630 PRINT TAB(4);" ":TAB(4);" " 

640 NEXT V 
650 PRINT ::::: 

660 FOR CHR0M02=1 TO 13 
670 CALL COLOR(CHR0M02,2,1) 

680 NEXT CHR0M02 
690 HH=3 

700 FOR N=49 TO 55 

710 HH=HH+3 

720 CALL HCHAR(3,HH,N) 

730 NEXT N 

740 NOME$=NOME1T 

750 CHR-136 

760 CALL HCHAR(24,3,32,29) 

770 V=24 
780 H=3 
790 MT=NOME* 

800 GOSUB 1840 

810 CALL SOUND(50,880,0) 

820 CALL KEY(0,K,S > 

830 IF S=0 THEN 820 
840 CALL SOUND(200,440,0) 

850 CALL HCHAR(24,LEN(NOME*)+5,K) 

860 IF K<49 THEN 820 
870 IF K>55 THEN 820 
880 KK=K—48 

890 ON KK GOTO 910,930,950,970,990,1010,1030 

900 GOTO 820 

910 HX=6 

920 GOTO 1040 

930 HX=9 

940 GOTO 1040 

950 HX = 12 

960 GOTO 1040 

970 HX= 15 

980 GOTO 1040 

990 HX = 18 

1000 GOTO 1040 

1010 HX=21 

1020 GOTO 1040 

1030 HX=24 

1040 FOR GC=17 TO 7 STEP -2 
1050 CALL GCHAR(GC,HX,SI) 

1060 IF S1=128 THEN 1090 

1070 NEXT GC 

1080 GOTO 820 

1090 MOSSE=MOSSE+1 

1100 CALL HCHAR(GC,HX,CHR) 

1110 CALL HCHAR(GC, HX + 1,CHR+1) 

1120 CALL HCHAR(GC+1,HX,CHR+2> 

1130 CALL HCHAR(GC+1,HX+1,CHR+3) 

1140 IF CHR-144 THEN 1170 
1150 CALL COLOR(16,2,CC1) 

1160 GOTO 1180 

1170 CALL COLOR(16,2,CC2) 
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1180 
1190 
1200 
1210 
1220 


JH((GC-5)/2,(HX-3)/3>=CHR 
FOR CH1=1 TO 7 
FOR CV 1=3 TO 1 STEP -1 
IF JH(CV1,CH1)=0 THEN 1230 
IF (JH(CV1,CH1>=JH(CV1+1,CH1>>* 

(JH(CV1+2,CHI)=JH(CV1+3,CH1))*<JH(CV1,CHI)=J 

H (CV1+2,CHI))THEN 1440 

1230 NEXT CV1 

1240 NEXT CHI 

1250 FOR CV2=1 TO 6 

1260 FOR CH2=1 TO 4 

1270 IF JH(CV2,CH2)=0 THEN 1290 

1280 IF (JH(CV2,CH2)=JH(CV2,CH2+1))* 

<JH(CV2,CH2+2> =JH(CV2,CH2+3))*(JH(CV2,CH2)=J 

H(CV2,CH2+2))THEN 1510 

1290 NEXT CH2 

1300 NEXT CV2 

1310 FOR CV3=1 TO 3 

1320 FOR CH3=1 TO 4 

1330 IF JH(CV3,CH3)=0 THEN 1350 

1340 IF (JH(CV3,CH3)=JH(CV3+1,CH3+1))* 

(JH(CV3+2,CH3+2)=JH(CV3+3,CH3+3))*(JH(CV3, 

CH3)=JH(CV3+2,CH3+2))THEN 1580 

1350 NEXT CH3 

1360 NEXT CV3 

1370 FOR CV4=1 TO 3 

1380 FOR CH4=4 TO 7 

1390 IF JH(CV4,CH4)=0 THEN 1410 

1400 IF (JH(CV4,CH4)=JH(CV4+1,CH4-1 ) > * 

(JH(CV4+2,CH4-2)=JH(CV4+3,CH4-3))*<JH(CV4, 

CH4)=JH(CV4+2,CH4-2))THEN 1670 

1410 NEXT CH4 

1420 NEXT CV4 

1430 GOTO 1760 

1440 FOR YVW=CV1*2+5 TO CV1*2+5+6 STEP 2 
1450 CALL HCHAR(YVW,CHI*3+3,152) 

1460 CALL HCHAR(YVW,CHl*3+3+l,153) 

1470 CALL HCHAR(YVW+1,CHI*3+3,154) 

1480 CALL HCHAR(YVW+1,CHI*3+3+1,155) 

1490 NEXT YVW 

1500 GOTO 1890 

1510 FOR HXK=CH2*3+3 TO CH2*3+3+9 STEP 3 


1520 CALL HCHAR(CV2*2+5,HXK,152) 

1530 CALL HCHAR(CV2*2+5,HXK+1,153) 

1540 CALL HCHAR(CV2*2+6,HXK,154) 

1550 CALL HCHAR<CV2*2+6,HXK+1,155) 

1560 NEXT HXK 
1570 GOTO 1890 

1580 FOR SEG=CV3*2+5 TO CV3*2+5+6 STEP 2 
1590 CALL HCHAR(SEG,CH3*3+3+KQ,152) 

1600 CALL HCHAR(SEG,CH3*3+4+KQ,153) 

1610 CALL HCHAR(SEG+1,CH3*3+3+KQ,154) 

1620 CALL HCHAR(SEG+1,CH3*3+4+KQ,155) 

1630 KQ=KQ+3 
1640 NEXT SEG 
1650 KQ=0 
1660 GOTO 1890 

1670 FOR SEJ=CH4*3+3 TO CH4*3+3-9 STEP -3 
1680 CALL HCHAR(CV4*2+5+KQW,SEJ,152) 

1690 CALL HCHAR<CV4*2+5+KQW,SEJ+l,153) 

1700 CALL HCHAR(CV4*2+6+KQW,SEJ,154) 

1710 CALL HCHAR(CV4*2+6+KQW,SEJ+1,155) 

1720 KQW=KQW+2 

1730 NEXT SEJ 

1740 KQW=0 

1750 GOTO 1890 

1760 IF M0SSE=42 THEN 2030 

1770 IF N0ME*=N0ME1* THEN 1810 

1780 N0ME$=N0I V 1E 1 $ 

1790 CHR=136 
1800 GOTO 1830 
1810 N0ME$=N0ME2$ 

1820 CHR=144 
1830 GOTO 760 

1840 FOR I=H TO LEN(M*)+H-1 

ISSO CALL HCHAR(V,I,ASC(SEG*(MT,I-H+l,1))) 

1860 NEXT I 

1870 RETURN 

1880 REM VITTORIA 

1890 RESTORE 2010 

1900 FOR COL.SON= 1 TO 16 

1910 READ DUR,FRE 

1920 CALL SOUND(DUR,FRE,0) 

1930 NEXT COLSON 
1940 CALL CLEAR 


1950 PRINT TAB(6);"CONGRATULAZIONI,":TAB((28-LEN(NOME*))/2);NOME$::::::::::::: 
1960 CALL SCREEN(8) 

1970 INPUT "GIOCATE ANCORA?(S/N) " : S$ 

1980 IF S$="S" THEN 520 
1990 CALL CLEAR 
2000 STOP 

2010 DATA 1000,262,500,392,125,349,125,330,125,294,1000,523,500,392,125,349 

2020 DATA 125,330,125,294,1000,523,500,392,125,349,125,330,125,349,2000,294 

2030 CALL CLEAR 

2040 PRINT TAB(11);"PATTA 

2050 GOTO 1970 

2060 REM SPIEGAZIONE 

2070 CALL CLEAR 

2080 PRINT VINCIQUATTRO"" e' un gioco simile al tradizionale FI-LETTO o TR 

IS.": : 


2090 PRINT "Lo scopo del gioco e' di mettere in fila 4 
ore(verticalmen-" 

2100 PRINT "te,orizzontalmente o diago-nalmente): 

2110 PRINT "Per posizionare una pedina occorre battere il 
a corrispondente":: 

2120 PRINT "La pedina si posiziona, cosi',nella prima 

partendo dal basso.":: 

2130 PRINT " premi un tasto" 

2140 CALL KEY(0,K,S) 


pedine del proprio col 

numero della colonn 
casella disponibile 


2150 IF S=0 THEN 2140 
2160 GOTO 340 
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CAPITALI EUROPEE 

di Fernando Pietro De Gisi 


Il programma consta di due parti: la prima è la 
presentazione, la seconda il programma vero e 
proprio. 

Scopo di «Capitali europee» è quello di far 
ripetere un po’ di geografia ai ragazzi che 
vanno a scuola o a quanti ormai non la 


ricordano più molto bene. 

Il computer propone 33 domande al termine 
delle quali vengono visualizzati il numero delle 
risposte esatte, il voto ed un giudizio. 

N.B. : La prima parte del programma carica 
automaticamente la seconda. 



IO REM *CAPITALI EUROPEE* 

£0 REM DE GISI FERNANDO PIETRO 
30 REM CON/TA TIRATORE 8/B 
40 REM 83042 ATRIPALDA CAV) 

50 REM TEL. 08£5/'626760 
100 P0KE36873,8 

110 PR I NT " tlilHC O P YR IGHT 1384" 
120 PR I NT - BBWBtMIimC E GISI" 
130 PR INT " Mlp ERNANOQ PIETRO" 
140 PR INT" B»H ATR I PALPA CAV)" 
150 FORT =1TO3000!NEXTT 
160 P0KE36873,25 


170 FORK =1T05 

180 PR I NT " JiaSggW»aBl«g«SKK>M»MFRESENTA " 

130 FORT=1TO500:NEXTT 

200 PR I NT » RESE NT A ■ " 

210 F0RT=1TO500:NEXTT 
220 NEXTK 
225 PR I NT "" 

230 P0K.E36879,8 

240 0ATA3,1,16,9,20,1,12,9 

£45 F0RM=4T01SSTEP2 

250 F0RN=8164T07812STEP-22 

£60 POKEN+M,102 
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265 

270 

280 

230 

300 

3 10 
320 

oo«=; 

338 

340 

350 

355 

360 

378 

380 

338 

408 

4 10 
420 
438 
440 
450 
460 
470 
488 
490 
485 
500 

5 10 
520 


FORT =1TO20:NEXTT 

IFPEEK C7S12+M) = 102THENGOSUB310 :6OTO290 

NEXTN 

NEXTM 

IFA=9THENGOTO320 

READ*:POKE7790+M,fì:RETURN 

FORT =1T0500:NEXTT 

DATA5,21,18,15,16,5,5 

F0RX=5T017STEP2 

FORY=S164T07834STEP-22 

POKEY+X,127 

FORT =)TO20:NEXTT 

IFPEEK(7834+X)=127THENGOSUB400:GOTO380 

NEXTY 

NEXTX 

IFPEEK <7829 ? =5THENG0T0410 
READB:P0KE7812 +X,B: RETURN 
FORT =1TO2880:NEXTT 
P RINT"J" 

P0KE36879,27 

PR INT ” SS3IL PRESENTE PROGRAMMA ” 

PR INT 11 SP'JC ' ESSERE UTILE PER " 

PR I NT " gJR IPETERE UN PO’ DI GEO" 

PRINT"HpRAFIA O FORSE....PER " 

PRINT"SIMPARARLA ! ! ! ! " 

PR INT 11 WMIliMP REMI UN TASTO®' 1 
GETA$: IFA$ = 11 "THEN495 
PR INT "iJ" 

PR I NT 11 giglio TTEND I UN MOMENTO PER FAVORE." 
P0KE631,13 1 ì P0KES32,13 :POKE198,2 : NEW 




10 PR INT " * 2 “ : M = 8 : POKE36879,27 
28 DATA "FRANCESE ", “PARIGI 11 
38 DATA"DEL PRINC. DI MONACOMONACO" 

48 DATA"SVIZZERA","BERNA" 

58 DATA"DEL LIECHTENSTEIN"," VADUZ “ 

DATA"AUSTRIACA","VIENNA" 

DATA"JUGOSLAVA ","BELGRADO" 

DATA"ALBANESE","TIRANA" 

DATA“BULGARA","SOFIA" 

180 DATA"UNGHERESE","BUDAPEST" 

110 DATA"TURCA"ANKARA" 

128 DATA"MALTESE ","LA VALLETTA" 

DATA"DELL‘ANDORRA","ANDORRA LA VELLA” 
DATA"SPAGNOLA","MADRIO¬ 
DATA "PORTOGHESE",“LISBONA" 

DATA "BELGA 11 , "BRUXELLES “ 

DATA"OLANDESE","AMSTERDAM" 

DATA"DEL LUSSEMBURGO","LUSSEMBURGO" 



60 

70 

80 

90 


138 
140 
150 
160 
178 
180 

190 DATA"ITALIANA","ROMA" 

200 DATA"DELLA REP.DEM.TEDESCA 
210 DATA"INGLESE","LONDRA“ 

220 DATA"IRLANDESE","DUBLINO" 


,"BERLINO" 
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230 DATA"DANESE","COPENAGHEN" 

240 DATA"NORVEGESE","OSLO" 

250 DATA"SVEDESE","STOCCOLMA" 

260 DATA"FINLANDESE","HELSINKI" 

270 DATA"ISLANDESE","REYKJAVIK" 

280 DATA"POLACCA","VARSAVIA" 

290 DATA"CECOSLOVACCA","PRAGA" 

300 DATA"GRECA","ATENE" 

310 DATA"RUMENA","BUCAREST" 

320 DATA"RUSSA ","MOSCA" 

333 DATA"DELLA REP.FED.TEDESCA","BONN" 

340 DATA"DELLA REP. DI S.MAR INO","S.MAR INO" 

353 REMN$=NAZ . : C$=CAP . : R4> = R ISP . 

360 F0RK=1T033:READN$,C$ 

370 PR I NT " iJQU ALE E' LA CAPITALE “;N$1 '?" 

380 INPUT R$ 

390 IFR$=C$THEN450 

400 PR I NT " jmBWm fì I SBAGLIATO!!" 

4 10 PRINT"MB-A RISPOSTA ESATTA ERA " ; C* 

420 PR INT"SBHIBISHIBMUUHMSPREMI UN TASTO»" 

430 GETA$:IFA$ =""THEN430 
440 GOTO480 

450 pr i nt" s a t t o» m :m=m+i 

455 IFK=33THEN490 

460 PRINT"HaaaORA TI FACCIO UN'ALTRADOMANDA." 

470 FORT=ITO 1750 :NEXTT 
480 NEXTK 

490 PR I NT " »JSSSlE DOMANDE SONO FINITE" 

495 FORT=1TO500:NEXTT 

500 PRINT"HSBHPRA TI MOSTRO IL MIO RESPONSO IN BASE ALLE RISPOSTE DATE." 

510 PR INT " UN TASTO»" 

520 GETA$:IFA$=""THEN520 

530 S$=" h JOSU 33 DOMANDE LE RISPOSTE ESATTE SONO " : Z $= " SHMMMUav’OTO : ■" 

535 Y$= " MMMaC IUD IZ IO i ■" 

540 IFM=0ORM>0ANDM<10THEN640 
550 IFM>10ANDM< =20THEN630 
560 IFM>20ANDM< =25THEN620 
570 IFM >25ANDM< =30THEN610 
580 IFM=31ORM=32THEN600 

530 IFM = 33THENPRINTS$;M:PRINTZ$"10":PRINTY$; "BRAVISSIMO ! ! " 

595 PRINT"SCONTINUA COSI IN TUTTO E SARAI UNA VALIDA PERSONA":GOTO650 

600 PRINTS$;M:PRINTZ$; "9":PRINTY$; "BRAVO.ANCORA UN PO’ E ....L* EUROPA SAREBBE ST 

ATA TUA":GOTO650 

610 PRINTS$;M:PRINTZ$;"8":PRINTY$;"HAI RISPOSTO IN MODO SODDISFACENTE. STUDIANDO 
UN PO'....":GOTO650 
623 PRINTSST M:PRINTZ$* "6.5" 

625 PRINTY$;"SE TI CONTEN-TI DELLA SUFFICIENZA PUOI RITENERTI SODDI - SFATTOG 
OTO650 

630 prints$;m:printz$;"5" 

635 PRINTY£;"SE VUOI PUOI ANCORA RIPRENDERTI,AL-TRIMENTI....":GOTO650 
640 PRINTS$;M:PRINTZ$;"4" 

645 PRINTY$;"PER TE LA GEOGRAFIA E 1 UN MISTERO. NON UN CONSIGLIO MA UNORDINE:DEV 
I STUDIARE" 

650 PR I NT " IWBMBM»»»HaP REMI UN TASTO»" 

660 GETA$:IFA$=""THEN660 

670 PRINT" JHSaSQOUALCUN ALTRO VUOLE ESSERE INTERROGATO? <S/N> 

675 GETA$:IFA$=""THEN670 
680 IFA$ ="S"THENRUN 
S90 END 
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IL SERPENTE 

di Simone Mariani 


Scopo del gioco di animazione è cercare di far 
mangiare al vostro serpente quante più 
mosche e formiche possibili evitando però i 
funghi velenosi. 

A fine gioco viene visualizzata la classifica dei 
records. 


COMANDI: 

S = alto 
X = basso 


< = sinistra 
> = destra 


3 REM* IL SERPENTE * 

3 REM*SIMONE MARIANI* 

4 REM*LARGO MARINA3S* 

5 REM* CAP.60010 * 

6 REM* OSTRACAN) * 

7 REM 

15 PR INTCHR*< 14£ > 

£0 DIMB$<5):FOR1=1T05:I)="000000 ???":NEXT 
40 DEFFNR ''X > = INT < RND ( 1 ) *X > 

50 P0KE56, 29 • P0KE5E, 29 
60 3=4£:M = 33:B=40:F=41 :N=171 

70 TC: =7680 : CO = 307£0 : S 1 =36874 : S£ = S 1 +£ : S3=S£+ 1 : V=S£+£ : SR=V+ 1 
80 GOSUB3000 

100 NM = £0:G03UB1500 :POKEV,47 
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mmmì 


120 HP=TC + 10+22*2 :L=5: TP=HP+L:D = 22 :H=46 

140 F'OKEHP ,H:POKEHP + 00 , 1 : FOR I =HP + 1 TOTP : POKE I ,S:POKEI+CO, 1 3 ! NEXT 
150 SC =0 :GOSUB900 

160 P RINT" aa< "TfìBC16)LEFT*(B$< 1 ) ,6); 

170 T=TI 

130 GETA$:IFA$ =""ANDTI-T<300THEN130 

190 6OTO210 

208 IFSC < 0THEN2000 

205 GETA* 

2 10 Z=22*<A$="S")-22*<A$="X")+<A$=",")-<A$=" . " ) :D=-D*(Z-0)+Z 
250 H = -43* <D=1>-44* <D = -1>-45* <D = -22)-46* <D=22) 

270 PCKEHP,H:NP =HP+D:P=PEEK CNP) 

2S0 IFP = MORP =STHEN2000 

290 IFP=WORPEEKCNP+1)= SORPEEK CNP- 1)=SORPEEK <NP+22)=SORPEEK <NP-22 > =STHENGOSUB800: 
GOTO200 

300 I FP = BTHENGOSUB708 

3 10 IFP =FTHENGOSUB750 

320 1FNB = 0ANDNF=0THENNM=10 :GOSUB1560 : GOTO 170 
330 GOSUB500!GOTO205 
500 POKES1, 170 

510 POKEHP +CO , 1 3 : POKEHP r S ‘ HP =NP ■’ PQKEHP +CO , 1 :POKEHP,H 
520 IFEL >0THENEL=EL-1 !GOTO550 
530 POKETP,32 

540 TP =TP-< PEEK < TP +1)=S> + CPEEK<TP -1)=S)+22*CPEEKCTP-22)=S)-22*CPEEK<TP+22)=S) 

550 POKES 1,0 

560 FORT =1TO150-4*L!NEXT 
570 RETURN 

700 POKESR, 12:L=L+1:EL=EL+1 
710 X=INT<(100+5*L)/10) 

720 FORI = ITO 10 :P0KES2,200 :POKENP,I + 12S 

730 SC=SC+XiGOSUB900:P0KES2,0 :NEXT:POKESR,10:NB=NB-1:P0KENP,32 
740 RETURN 
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750 POKESR,14 :L = L+2:EL=EL+2 
760 X = INT( (. 150+6*L )/10 > 

770 FOR1 = 1TO10 :P0KES2, 220 :POKENP,1 + 128 

780 SC=SC+X:GOSUB900:POKES2,0:NEXT:POKESR,10:NF=NF-1:POKENP,32 
790 RETURN 
8O0 P0KES2,180 

8 ! 0 SC=SC-10 :GOSUB900 
920 P QKES2,0 

830 RETURN 

900 S^=STR$<SC):Q=LEN<SSO:S$=LEFT*<"00000",7-Q)+RIGHT$<S$,Q-1) 

9 10 PR INT » a<M»M "SÌ 
920 RETURN 

1000 F0RC = 35T046:FOR2 =0TO7: READN:P0KE7168+8*C+Z,N!NEXT:NEXT 

10 10 FOR2=8*32T03*32+7:P0KE7168+2,0 :NEXT 
1020 RETURN 

1 100 DATA255,171,171,139,171,171,171,255,255,136,187,139,235,235,136,255 
1120 DATA255,136,170,168,170,170,138,255,255,143,191,159,191,191,143,255 

1 140 DATA56,124,124,254,186,56,56,124,130,84,56,254 ,56,254 ,56 ,254 
1160 DATA 108,16,124,186,186,186,84,16,40,40,190,190,190,190,40,40 

1130 DATA48,104,109,254,254,109,104,43,12,22,182,127,127,182,22,12 
1200 DATA36,24,60,126,153,255,126,24,24,126 ,255,153,126,60,24,36 
1500 P0KE36869,255 

15 10 POKESR, 1 0 : PR I NT » LCTK T/.&a! " TAB ( 1 1 > " 

1520 FORI=0TO21 :Pl=TC+22+I :P2 = TC+22*22+I :P3 = TC+22*<1 + I):P4=TC+21+22* <1 + I) 

1550 NEXT 

1560 CH=M:C=4:N=NM:GOSUB1700 
1570 CH=BsC=5:NB=15!N=NB:GOSUB1700 
1580 CH = F : C = 7 : NF =5 s GOSUB 1700 
1590 RETURN 
1700 FOR1=1TON 

17 10 P =TC +FNR(20)+l+22*(FNR<19>+3) 

1720 IFPEEK<P).< >32THEN 17 10 
1730 POKEP +CO ,C:POKEP,CH 
1740 NEXT 
1750 RETURN 

2000 P0KES3,200 : FORT =1TO250:POKESR,2 :FORI = ITO 10 :NEXT!POKESR,10 :NEXT 

2050 FORVO=15TO0STEP-. 1 :POKEV,VO:NEXT 

2060 POKES3,0:POKESR,12 !P0KE36869,240 !POKE193,0 

2070 PR INT" L'JM UCCISO DA UN" !PRINT" M1JI FUNGO VELENOSO " 

2080 K = 0:FORI = 1T05: IFSC>VAL<LEFT$(B$<I > ,6))THENK=I ! 1=5 

2090 NEXT! IFK = 0THENFORT =1TO1000 :NEXT: GOTO2150 

2100 PR I NT " IJ3R AVO , SEI UNO DEI >5<MIGLI0RI GIOCATORI !" 

2110 PRINT"SINSERISCI LE INIZIALIH" : INPUT 1$: IFLENC1$)>3THEN2110 
2120 FORI=4T0KSTEP-1:B$<1+1>=B$<I):NEXT 
2130 BS<K>=SS+" "+1$ 

2 150 POKESR,78:PRINT"J"TAB(5)"aRECGRDS: " 

2160 FOR I = 1T05 ! PR INT "SU” I I ) : NEXT 

2 170 PRINT"H ANCORA?<S/N> S" ! INPUTQ* 

2180 IFQ$="S"THEN100 

2 190 IFQ$="N"THENPRINT" HGRAZIE PER LA PARTITA ! ": END 
2200 GOTO2170 

3000 POKESR,154 :PRINT"LM3 IL SERPENTE" 

3020 PRINT"HUUOI USA I TASTI!" 

3030 P R I NT " MBIIM SU = S GIU'=X|| g*|S INISTR A = < DESTRA= > ” 

3040 PRINT"W4ANGIA LE MOSCHE E LE SF ORMI CHE , MA ATTENTO AI «—F UNGHI VELENOSI!" 
3060 GOSUB 1000 

3070 PR INT" MWWIWiaF ’REMI UN TASTO ..." 

3030 GETA*:IFA*=""THEN303B 
3090 RETURN 
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srmiKE! 



SLOT MACHINE 

di Dario Letizia 


Non siamo a LAS VEGAS, ma se volete 
ugualmente tentare la buona sorte e rischiare 


qualche moneta ecco per voi la...tentatrice 
SLOT MACHINE!!! 



10 LIflIT MAX :CLR JCONSOLE0,25,0,40 
20 REH BY DARIO LETIZIA 
30 REM UI a M.Sermnola 88,80131 NAPOLI 
40 REM 

50 REM SLOT MACHINE FOR MZ-700 
6e COLOR,,4,0 

70 PRINT“B":REM ANNULLA LO SCHERMO 

80 MAN$=" E3E3E3E3E3 ":REM AZZERA UARIABI 

LE MEMORIZZAZIONE RECORDMAN 

90 PU=15 '-REM PUNTEGGIO INIZIALE 

100 PG=0:REM NUMERO PARTITE GIOCATE 

110 REM DEFINIZIONE UARIABILI A$,B$,C$,D 


$,E$,F$,G$,H$ 

120 A$= ":C8C8C8C8C8C8C8 

707070707070707070707070707070 BAR BAR707 
0707070707070707070707070707070707070707 

07070707070707070707070C8C8C8C8C8C8C8707 

070Bar. tr i p I O 707070707070707070707070707 
0707070707070 BAR BAR 70707070707070707070 
7070707070707070707070707070707070707070 

707070C8C8C8C8C8C8C870707070707070707070 

7070707070707070707070707070707070707070 

707070BAR BAR707070707070707070707070707 


070707070 C8C8C8C8C8C8C8 

130 B$=" C8C8C8C8C8C8C8 

707070707070707070707070707070 BAR BAR707 
0707070707070707070707070707070707070707 

07070707070707070707070C8C8C8C8C8C8C8707 

070Bar- doppio 707870707070707070707070707 
0707070707070 BAR BAR 70707070707070707070 
7070707070707070707070707070707070707070 

707070C8C8C8C8C8C8C870707070707070707070 

7070707070707070707070707070707070707070 

707070C8C8C8C8C8C8C870707070707070707070 
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7073707070707070 C8C8C8C8C 

8C8C8 

140 C$=" G8C8C8G8C8C8C8 

70707B707070707070707070707070 BAR BAR707 
0707073707070707070707070707070707070707 

87070707070787070707070C8C8C8C8C8C838707 

_/0Bar s ingoio 70707070787070707070707070 
707370787078C8C3C8C8C8C8C870707070707070 

7070707070707070707070707070707070707070 

707078707070C8C8C8C8H8C8C870707070707070 

7070707070707070707070707070707070707070 

/07B7870707BC8C8C8C8C8C8G870707070707070 

7070707070707070707070 C8C 

3~8G8:s:8C6 

150 D$ = " £4XC^ 70707 

070707070707070707070707070836C6C6C88707 

0787878707070707070707070707070707070707 

070707070707070707070707070866C6C6C8E707 

07370F r-no o I a 7070707070707070707070707070 
70737070707070707070BF856C8A8F7070707070 

7078707070707078707070707070707070707070 

7870707070707070707070707070707070707070 

7070707070707070707070707070707070707070 

7070707070707070707070707070707070707070 

7070707070707070707070707070 

G8G8C8C8C8C8C8 

160 E$=" l 7070707 

0707070787070707B7070707099826C878C70707 

0707070707070707070707070707070707070707 

0707070707070707070707070B16G6C6C8D73707 

070He I a 737070707070707070 7070 7070 70 78 78 7 
070707070707e7070707B866C6C6C8F707070707 

0707070707070707070707070707070707070707 

070707070707070707070BF856C8B8F707070707 

07070707070.0.. 07870707078 707070707070707 

0707070707070707070707070707070707070707 

07370707070707870707070707070 

C8C8C8C8C8G8G8 

170 F$=" l 7070707 

070707070707070707070707075836C887670707 

0707070707070707070707070707070707070707 

0707070707070707070707070896C6C6C8470707 

070Pera 707070707070707070707070707070707 

070707070707070707070866C6C6C8E707070707 

0707070707070707070707070707070707070707 

070707370707070707070BF856C8B8F707870707 

0707070707070707070707070707070707078707 

0707070707070707070707070707070707070707 ’ 

07070707070707070707070707070 

C8C8C8C8C8C8C8 

180 G$=" 9982C3878C 70 

707070707070707070707B70707070B1 * Y 8D707 
0707070707070707070707070707070707070707 

070707070707070707070707070868.4 ^ 898£7070. 
_70Omlno sorri dente 7070707070707070707070 
7070707070BF85C38A8F70707070707070707070 

7070707070707080707070/070/0707070707070 

7070707070707070707070707070707070707070 

7070707070707070707070707070707070707070 

70707070C8C8C8 r '83 8 C8C8 7070 70707070 707070 

707870707070707070 C8C8C8C 

8C8C8C8 

190 H$=*' 9982C3878C ' 70 

787070707070707070707070707070B1 <s . ''' 80707 
0707070707070787070707070707070707070707 

0707070707070707870707070708683C3888E707 

070 Qmino pianqente 7070707070707070707070 
7370707070706^85 8A8F7070707070707070707 
0707070707070707070707070707070707070707 

0707070707070707070707070707070707070737 

0707070707070707070707070707070707070707 

070707070C87808C8C8C8C8707B7070707070707 

0707070707070707070 C8C8C8 

C8C8C8C8 

200 REM PRESENTAZIONE 
210 COLOR,,0 

220 PRINT[0,4]"BB0BB C4C4C4 C. 

4C4 C4C4C4C4C4C4 " 

230 PRINTC0,6]"BBBBB £3. 88. 7877 8. 

3. .88 7870707070707077 " 

240 PRINTC0,4J"BBBBB C5 84C489 C77070C5 


C58388C7 7670707070707075 " 

250 PRINT[0,6] ,, B0B0B 84C4C4C4 C77070C5 

C5C5C7C7 G3F07070C3C3 " 

260 PRINT[0,43"BBBBB C4 88 C77070ECC4 


C5C5C7C7 

C77070 



270 

PRINTE0,63 

"BBBBB 838388 

C7 

C77070707 

077 

C58489C7 

C77070 



280 

PRLNTC0.43 

"BBBBB 848489 

89 

76707070 

75 

84C4C489 

7675 



290 

PRINTE0,63 

"BBBBB C3C3C3 

C3C3C3 


300 COLOR,,6 
310 PRINT 
320 PRINT 
330 PRINTC0,2] 


340 PRINT[0,4I"BB BC7ED EEC5 83C3C388 8. 

3C3C388 C7 05 C5C7ED ■C5 33C3C388 
C7 EDEE C5C7C4C4C4C4C5C7 C7E3E3E3G5 

C5C7 ED C5 C5E3E3 C? C5C7 .C5 
84C4C489 C7 £5 C5C7 EDC4C5 84C4C489 

350 PRINTC0,2] "DB 


360 CIIRSOR0, 1 3 JPRINTC4,0] "C8C8 " 

370 PRINT[ 0,73 "IBBSEBBB CREATED BY DARIO 
LETIZIA " 

380 PRINT[0,71"fflfflBBBBBB PREMI 'S' PER C 
ONTINUARE " 

390 GETL1$ 

400 IFU$=""THEN390 

410 IFW$="S"THENPRINT"B":GOTO430 

420 GOTO390 

430 CURS0R5,10:PRINT[0,43"Duoi vedere le 
istruzioni ?" 

440 GETU$ : IFW$=" "THEN440 
450 IF 14$="S"THEN490 
460 IF Li$=“N"THEN990 
470 GOTO440 

480 REM ISTRUZIONI GIOCO 
490 PRINT"0" 

500 PRINTE3,03" . C4C4C4C4C4C4C4C 

4C4C4C4C4C4C4C4C4C4C4C4C4C4 


510 PRINTI4,03" 

9982 

878C " 


520 PRINTC5,03" 

8388B1 I S T R U C - 

T I 0 N S 8D8388" 


530 PRINTI7,03" 

848986 

8E8489" 


540 PRINTI4,03" 

BF85 C3C3C3E3C3C3 

C3C3C3C3C3C3C3C3C3C3C3C3C3 8A8F " 

550 PRINTC3,03" 

C3C3C3C3C3C3C3C 

3C3C3C3C3C3C3C3C3C3C3C3C3C3 


560 PRINT 
570 PRINT 

580 PRINT[3,2]" CCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCC" 

590 PRINTC0,51 

600 PRINf[0,7]"BBBBBBBBBBBBSinBOLI DI Gl 
OCO" 

610 F0RY=1T02 

620 CURSORI5,15!PRINTC4,3A$ :F0RT=1TO500: 
NEXTT 

630 CURS0R15,15:PRINTC5,]B$:F0RT=1TO500 : 
NEXTT 

640 CURS0R15,15:PRINT[7,3C$:F0RT=1TO500 : 
NEXTT 

650 CURSORI 5, 1 5 :PRINTD$ :F0RT=1 TO500 -’NEXT 
T 

660 CURSORI5,15:PRINT[4,3E*:F0RT=1TO500: 
NEXTT 

670 CURSORI 5,15:PRINT[5,3F$:FORT=1TO500 : 
NEXTT 

680 CURSORI5,15:PRINT[7,]G$:F0RT=1TO500: 
NEXTT 

690 CURSORI 5,15:PRINTH$ :F0RT=1TO500:NEXT 
T 

700 NEXTT 

710 CURSOR 8,23:PRINT[0,7]"PREni 'S' PER 


CONTINUARE" 

72L GETR$ 

730 IFR$=" "THEN720 
740 IFR$= u S n -THEN760 
750 GOTO720 
760 PRINT"S" 

770 PRINT 

780 PRINT"BBBBBBB" ; 

790 PRINT " C8C8C8G8C8C8C8C8C8C8C8C8G8C8 
C8C8C8C8C8C8C8C8C8C8C8 " 

"BBBBBBB C8 

"BBBBBB BC8 Si parte con 15 pu 
"BBBBBBBC8 

"BBBBBBBC8 se si va sotto 3 
"B6BBBSBC8 

"BBBBBBBC8 termina la partit 
"BBBBBBB.C8 

"BB00BBB.C8 E5E5E5E5F.5E5E5E5E5 
E5E5E5E5E5E5E5E5E5E5E5E5 C8 " 

880 PRINT "BBBBBBBC8 —~ 
--- C8 " • 

890 PRINT "BBBBBBBC8 
08 " 

900 PRINT "BBBBBBB C8C8C8C8C8C8C8C8C8C8G 
8C8C8C8C8C8C8C8C8C8C8C8C8C8C8 " 

910 PRINT 

920 CURSOR0,16:PRINT"01 tre i 50 punti il 
computer controlla la vostra media pun 
ti/partita e se e'Ja migliore allora sar 
ete il RECORD-MAN di Slot Mach in 

e 2 2 2 " 

930 PRINT 

940 CURS0R5,22!PRINTC0,73"PRESS 'S' KEY 
TO CONTINUE 

950 GETQ$: IFQ$=" "THEN950 
960 IF Q$="S"THEN990 
970 GOTO950 

980 REM ROUTINE INPUT NOME GIOCATORE 
990 PRINT"0" 

1000 PRINT 

1010 PRINT[3.23" CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCC'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCC " 

1020 PRINT 

1030 INPUT"BBBBBBCome ti chiami ? ";Z$ 
1040 PRINT 
1050 PRINT 
1060 PRINT 

1070 PRINT"BBBBBBOK ";Z$;" Iniziamo222" 

I06e PRINT 

1090 PRINTI3,23" CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCC" 

1100 PRINT[2., 33 " CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCC " 

1110 'OPZIONE PER RIUEDERE ISTRUZIONI 
1120 CURSOR0,12 :PRINTZ$ ; " vuoi rivedere 
le istruzioniCY/N3?" 

1130 GETJK$:IFJK$=""THEN1130 
1140 IFJK$="Y"THEN490 
1150 IFJK$="N"THEN1170 
1160 GOTOI130 

1170 CURSOR0,16:PRINT"A secondo deMa pu 
ntata da 1 a 5 si"!PRINT"perderanno risp 
ett ivamente 3,6,9,12, 15" :PRINT"punt‘i. " 

1180 CURSOR0,21 5PRINTC0,73"PUSH 'S' KEY 
TO START" 

1190 GETFF$:IFFF$=""THEN1190 
1200 IFFF$="S"THEN1220 
1210 GOTOI190 
1220 PRINT"@" 

1230 REM ROUTINE INPUT PUNTATA 

1240 CURS0R2,10:PRINTZ$j" qual'e'la tua 

puntataC1z53?" 


800 PRINT 
08 " 

810 PRINT 
nti C8 " 
820 PRINT 
C8 " 

830 PRINT 
££ " 

840 PRINT 
C8 " 

850 PRINT 
a. C8 " 
860 PRINT 
C8 " 

870 PRINT 
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rvrC 



1250 GETF 

1260 IFCF=13+IF=23+CF=33+CF=43+IF=53THEN 
1280 

1270 GOTO1250 

1280 IF F*3>PL) THEN'-CURS0R2, 1 2 :PRINT"Non 
puoi il tuo punteggio e'";PU 
1290 IFF*3>PUTHENF0RT=1T01500sNEXT:G0T01 
220 

1300 PRINT"i" 

1310 REN ROUTINE STANPA UIDEO TABELLA 
1320 REM RELATIUA ALLE UINCITE 
1330 PRINT"Lq tabella seguente mostra i 
punteggi che puoi u i ncere > " ,’2$ 

1340 PRINTI4,23" CCCCCCCCCCCCCCCCCCCCCCCC 
I.CCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCC " 

1350 PRINT16,33 11 CCCCCCCCCCCCCCCCCCCCCCCC 

cccccccccccccccccccccccccccccccccccccccc 

CCCCCCCCCCCCCCCC" 

1360 PRINT 

1370 PRINT"C0N TRE BAR TRIPLI UINCI "5 
F*100 ;:CURS0R32,8 :PRINT"PUNTI" 

1380 PRINT"C0N TRE BAR DOPPI UINCI 
F*80;:CURS0R32,9:PRINT"PUNTI" 

1390 PRINT"CON TRE ANY BAR UINCI "J 

F*50;:CURS0R32,10:PRINT"PUNTr' 

1400 PRINT"CON TRE BAR SINGOLI UINCI " ; 
F*45;:CURS0R32,11 :PRINT"PUNTI" 

1410 PRINT"C0N TRE J58. SORRIDENTI UINCI " 
;F*30;:CURS0R32,12:PRINT"PUNTI" 

1420 PRINT"CON DUE 68. SORRIDENTI UINCI " 
;F*105:CURS0R32,13:PRINT"PUNTI 
1430 PRINT"CON DUE BAR TRIPLI 
F*10 ;:CURS0R32,14:PRINT"PUNTI" 

1440 PRINT"CON TRE PERE 
F*5!:CURS0R32,15:PRINT"PUNTI" 

1450 PRINT"CON TRE MELE 
F*5;JCURS0R32,16:PRINT"PUNTI" 

1460 PRINT"CON TRE FRAGOLE 
F*2! :CURS0R32,17:PRINT"PUNTI" 

1470 PRINT"CON DUE MELE 
F*2;JCURS0R32,18:PRINT"PUNTI" 

1480 PRINT"CON .DUE FRAGOLE 
F*1 J JCURS0R32,19:PRINT"PUNTI" 

1490 PRINT"CON TRE ^.PIANGENTI PERDI " 
;F*10;:CURSOR32,20:PRINT"PUNTI" 

1500 PRINT 

1510 PRINT[4,5I" CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


uinci " ; 

UINCI "J 
UINCI "; 

uinci 

UINCI "5 

uitfci 


Cccccccccccccc " 

1520 FORT=1TO3000sNEXTT 
1530 PRINJ"B" 

1540 PG=PG+1 s'INCRENENTA NUNERO PARTITE 
1550 REM UIDEATA DI RIEPILOGO 
1560 CURSOR0,2:PRINT "FAFAFA Record media 
punti/partita =" INEDIA 
1570 CURSOR0,4:PRIhfT "FAFAFA Detenuto da 
"JNAN$ 

1580 CURS0R8,10:PRINTI4,]"Partita n.";PG 
1590 CURS0R8,13:PRINTC7,J"Punteggio " JPU 
1600 CURS0R8,16:PRINT[4,]"Puntata " ;F 
1610 CURS0R8j 1 9 SPRINT 1.7, ] "G i ocatore ";Z 

$ 

1620 FORT=1TO2000sNEXTT 
1630 COLOR,,4,0 
1640 TENP07 
1650 PRINT"B" 

1660 REN ROUTINE ASSEGNAZIONE FIGURE ALL 
E UARIABILI I$,L$,N$ 

1670 LET A=INTCRNDC13*343+1 
1680 IF A=30 THENI$=A$ 

1690 IF A=13 THENI$=B$ 

1700 IF A=21 THENI$=C$ 

1710 IFIA=23+CA=63+tA=93+CA=143+IA=173+t 
A=193+CA=233+CA=243+CA=273+IA=313THENI$= 
D$ 

1720 IFI A=33 + CA=73 + CA=103+IA=123+CA=163+ 
CA=203+CA=253+CA=323 -THENI$=E$ 

1730 IFIA=53+tA=83+IA=183+CA=263+CA=293+ 
IA=333 THENI$=F$ 

1740 IFIA=43+tA=223+IA=343THENI$=G$ 

1750 IFCA=13+CA=113+CA=153+CA=283THENI$= 
H$ 

1760 LET B=INTCRNDC13*343+1 
1770 IF B=17 THENL$=A$ 

1780 IF B=13 THENL$=B$ 

1790 IF B=30 THENL$=C$ 

1800 IFCB=23+IB=53+CB=183+IB=223+tB=243+ 
CB=273+CB=293+IB=323+IB=333+IB=343THENL$ 
=D$ 

1810 IFIB=33+IB=43 + IB=73 + IB=103+CB=143+C 
B=193+IB=213+IB=283 THENL$=E$ 

1820 IFCB=13+IB=83+tB=93+IB=233+CB=263+t 
B=313 THENL$=F$ 

1830 IFIB=63+IB=113+CB=163THENL$=G$ 

1840 IFCB=153+CB=123 + CB=20 3 + IB=253T,HENL$ 
=H$ 

1850 LET C=INTCRNDC13*343+1 
1860 IF C=1 THENN$=A$ 

1870 IF C=32 THENN$=B$ 

1880 IF C=22 THENN$=C$ 

1890 IFCC=33+CC=63+CC=103+CC=113+CC=143+ 
CC=173+CC=213+CC=243+CC=273+CC=313THENN$ 
=D$ 

1900 IFIC=23+CC=43+CC=73+CC=93+IC=123 + CC 
=153+IC=163+IC=203 THENN$=E$ 

1910 IFCC=53+CC=133+CC=193+CC=233+CC=263 
+IC=343 THENN$=F$ 

1920 IFCC=283 + CC=30 v 3 + tC=333THENN$=G$ 

1930 IFCC=83+IC=183+CC=253+CC=293THENN$= 
H$ 

1940 REN GRAFICA UIDEO CON STANPA FIGURE 
1950 CURSOR0,0sPRINTI0,73"SLOT NACHINE 
SLOT NACHINE SLOT NACHINE" 

1960 CURSOR0,22 :PRINT[0,7]"SLOT NACHINE 
SLOT NACHINE SLOT NACHINE" 

1970 CURSORI 5-, 1 :PRINT[4, ]A$ :NUSIC"+A1 " 
1980 CURSORI 5,8SPRINT[5,3B$sNUSIC"+B1 " 
1990 CURSORI 5,15:PRINTC6,3C$:NUSIC"+C1" 
2000 CURSORI 5,1 :PRINTC6,]D$:NUSIC"+D1" 
2010 CURSORI 5,8 5PRINTC4,]E$:NUSIC"+E1" 
2020 CURSORI 5,15:PRINT[5,]F$ :NUSIC"+F1" 
2030 CURSORI 5,1 :PRINTC5,3G$:NUSIC"-A1" 
2040 CURSORI5,8:PRINTI6,]H$:NUSIC"-B1" 
2050 CURS0R15,15:PRINT[4,3A$ :NUSIC"-C1" 
2060 CURSORI 5,1 :PRINTC4,3B$:NUSIC"-D1“ 
2070 CURSORI5,8:PRINTI5,]C$:NUSIC"-E1 " 
2080 CURSORI 5, 15:PRINTC6, 3D$ :NUSIC'‘-Fr‘ 
2090 CURSORI 5,1 :PRINT[6,3E$:NUSIC"A1" 
2100 CURSORI5,8:PRINTC4,]F$ :NUSIC"B1" 
2110 CURSORI 5, 15 SPRINT[5,]G$:NUSIC"C1" 


2120 CURSORI 5,1 :PRINT[5,]H$:NUSIC"D1" 
2130 CURSORI 5,8 SPRINTI6,3A$:NUSIC"E1" 
2140 CURSORI 5, 15SPRINTI4, 3B$ sflUSICFI " 
2150 CURSORI 5,1 SPRINTI4,3C$sNUSIC"+A1" 
2160 CURSORI 5,8 SPRINT[5,3D$sNUSIC"A1" 
2170 CURSORI 5,15sPRINT[6,]E$snUSIC"-A1" 
2180 CURSORI 5,1 SPRINTI6,3F$sNUSIC"+B1" 
2190 CURSORI 5,8 SPRINTI4,]G$sNUSIC"B1" 
2200 CURSORI 5,15SPRINTI5,3H$ s| 1USIC"-B1" 
2210 CURSORI 5,1 3PRINTC5,3A$sNUSIC"+C1" 
2220 CURSORI 5,8:PRINTI6, 3B$sNUSIC"Cl " 
2230 CURSOR15,15sPRINTI4,3C$snUSIC"-C1" 
2240 CURSORI 5, 1 SPRINTI4,]D$sNUSIC"+D1" 
2250 CURSORI 5,8 SPRINTI5,3E$:NUSIC"DJ '* 
2260 CURSOR 1 5, 15SPRINTI6, 3F$ :MUSIC".-D1 " 
2270 CURSORI 5,1 SPRINTI6,3G$sNUSIC n +C1" 
2280 CURSORI 5,8 SPRINT 14,3H$ sNUSIC"E1" 
2290 CURSORI 5, 15:PRINTI5, 3 A$ sNUSIC"-E1 11 
2300 CURSORI 5,1 SPRINTC5,3B$sNUSIC'+F1" 
2310 CURSORI5,8sPRINTI6,]C$:NUSIC"F1" 
2320 CURSORI 5,15SPRINTI4,3D$sNUSIC"-F1" 
2330 CURSORI 5,1 SPRINTI4,]E$sNUSIC"A1” 
2340 CURSORI 5,8 SPRINT 15,3F$sNUSIC"B1" 
2350 CURSORI 5, 15 sPRINT[6, ]G$ snUSICCI" 
2360 CURSORI 5,1 SPRINTI6,3H$:NUSIC"D1" 
2370 CURSÓRI5,8:PRINTI4,]A$ sNUSIC"E1" 
2380 CURSORI 5,15sPRINT[5,3B$sNUSIC"F1" 
2390 CURSORI 5,1 sPRINT15,3C$ sNUSIC"G1" 
2400 CURSORI 5,8 SPRINT[6,3D$sNUSIC"+A1" 
2410 CURSORI 5, 1 5.sPRvÌNTI4, 3E$ sNUSIC"+B1 " 
2420 CURSORI 5,1 SPRINTI4,3F$sNUSIC"+C1" 
2430 CURSORI 5,8 SPRINT 15,3G$sNUSIC“+D1" 
2440 CURSORI 5,15:PRINTI6,]H$sNUSIC"+E1" 
2450 CURSORI 5, 1 JPRINTI6, 3A$ s|lUSIC"+F1 " 
2460 CURSORI5,8:PRINTI4,JB$ sNUSIC"+G1" 
2470 CURSORI 5,15 SPRINT 15,]C$sNUSIC"-A1" 
2480 CURSORI5,1 SPRINTI5,IDIsNUSIC"-B1" 
2490 CURSORI 5', 8 SPRINTI6,3E$ sNUSIC" T C1 " 
2500 'STANPA EFFETTIUA C0NBINA2I0NE USCI 
TA 

2510 CURSORI 5, 1 5 SPRINTI4, ] 1$ sMUSIC-DI '* 

2520 CURSORI 5,1 SPRINTC5,]L$sNUSIC"-E1" 

2530 CURSORI5,8:PRINTI6,3N$5NUSIC"+F7" 

2540 FORT=1TOI000 sNEXTT 

2550 POKE$730,$18sPOKE$731,2 

2560 FORZ=1TOI28 

2570 P0KE$5D,E 

2580 USRC$7243 

2590 NEXT2 

2600 POKE$730,$36SPOKE$731,0 
2610 COLOR,,4,0 

2620 REN ROUTINE CONTROLLO UINCITE 
2630 IF £A=303*CB=173*CC=13THEN3020 
2640 IF IA=133*CB=133*CC=323THEN3080 
2650 IF CA=2T3*CB=30J*CC=22DTHEN3140 
2660 IFIIA=23+IA=63+CA=93+IA=143+CA=173+ 
CA=193+CA=233+CA=243+CA=273+CA=313 3*C IB= 
23+CB=53+CB=183+CB=223+CB=243+CB=273+CB= 
29 3 + C B=32 3 + CB=333 + t B=34 33#CCC=33 + C C=6 3 3 T 
HEN3200 

2670 IFIIA=23 + CA=63 + CA=93 + IA=143 + IA=173 + 
CA=193+CA=233+CA=243+CA=273+tA=3133*ICB= 
23'+CB=53 + CB=1 83 + IB=22 3 + CB=24 3 + CB=273 + CB= 
293 + CB=323 + IB=333 + CB=343 3XCCC=103 + CC=113 
3THEN3200 

2680 IFICA=23 + CA=63 + CA=93 + CA=143 + IA=173 + 
CA=193 + CA=233 + C-A=24 3 + CA=273 + CA=31 3 3*CCB= 
23+IB=53+CB=183+CB=223+CB=243+IB=273+IB= 
293 + IB=32 3 + CB=333 + CB=343 3XCCC=143 + CC=173 
3THEN3200 

2690 IFICA=23+CA=63+IA=93+CA=143+IA=173+ 
C A=193 + CA=233 + CA=24 3 + CA=273 + CA=313 3*1IB= 
23+CB=53+CB=183+IB=223+IB=243+CB=273+tB= 
293 + CB=323 + CB=333 + CB=343 3XC CC=213 + CC=24 3 
3THEN3200 

2700 IFC CA=23 + CA=63 + CA=93 + CA=143 + CA=173 + 
CA=193+CA=233+CA=243+CA=273+CA=3133*IIB= 
23+CB=53+CB=183+IB=223+CB=243+IB=273+IB= 
293+CB=323+CB=333+CB=3433*CCC=273+CC=313 
3THEN3200 

2710 IFCIA=33+CA=73+CA=103+CA=123+IA=163 
+ IA=20 3 + IA=253 + CA=323 3XCIB=33 + CB=4 3 + CB=7 
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D+CB=10)+CB=14D + CB=193 + CB=213 + CB=283 3* C C 
C=23+CC=4J+CC=73+CC=9D+CC=123+CC=1533 THE 
N3260 

2720 IFCCA=33+CA=73+CA=103+CA=123+CA=163 
+CA=203+CA=253+CA=323 3*C CB=33+CB=43+CB=7 
3+CB=103+CB=143+CB=193+CB=213+CB=2833*CC 
C=163+CC=2033THEN3260 

2730 IFC CA=53+CA=83+CA=183+CA=263+CA=293 
+CA=3333*CCB=13+CB=83+CB=93+CB=233+CB=26 
3+CB=3133*CCC=53+CC=133+CC=193+CC=233+CC 
=263 + CC=34 3 3THEN3320 

2740 IFC CA=53 + CA=83 + CA=183 + CA=263 + CA=293 
+ C9=333 3*C CB=13 + CB=83 + CB=93 + CB=233 + CB=26 
3 + CB=3133*CCC=53+CC=133+CC=193 + CC=233 + CC 
=26 3 + C C=343 3 THEN3320 

2750 IFC C9=4 3 + C9=223 + C9=34 3 3*C CB=63 + CB=1 
13+CB=1633*C CC=283+CC=303+CC=333 3THEN338 
0 

2760 IFCC9=13 + C9=113+CA=153+CA=2833*CCB= 

153 + CB=123 + CB=203 + CB=253 3*C CC=83 + CC=183 + 

CC=253 + CC=293 3THEN3440 

2770 IFCA=303*CB=173THEN3500 

2780 IFCA=303*CC=13THEN3500 

2790 IFCC=13*CB=173THEN3500 

2800 IFCC9=23 + C6=6 3 + C9=93 +C9=143+ C9=173 + 


C 9=193 + C9=233 + C9=24 3 + C9=273 + C9=3133*CCB= 
23+CB=53+CB=183+CB=223+CB=243+CB=273+CB= 
293 + C8=32 3 + CB=33 3 + CB=34 3 3THEN3560 
2810 IFC C9=2 3 + C9=6 3 + C9=9 3 + C9=143 + C9=173 + 
C9=193 + C9=233 + C9=243 + C9=273 + C9=313 3*C CC= 
33+CC=63+CC=103+CC=113+CC=143+CC=173+CC= 
213+CC=243+CC=273+CC=3133THEN3560 ’ 

2820 IFC CC=33 + CC=6 3 + CC=1 03 + CC= 1 1 3 + C.C=143 
+ CC=173 + CC=213 + CC=243 + CC=273 + CC=313 3*C CB 
=23 + CB=5 3 + CB=183 + CB=223 + CB=24 3 + CB=273 + CB 
=293 + CB=323 + CB=333 + CB=34 3 3THEN3560 
2830 IFCC9=33+C9=73+C9=103+C9=123+C9=163 
+CA=203+CA=253+CA=3233*CC8=33+CB=43+CB=7 
3+CB=103+CB=143+CB=193+CB=213+CB=2833THE 
N3620 

2840 IFC C9=33 + C9=73 + C9=103 + C9=123 + C9=163 
+CA=203+CA=253+CA=3233*CCC=23+CC=43+CC=7 
3 + CC=93 + CE=123 + CC=153 + CC=163 + CC=20 3 3 THEN 
3620 

2850 IFC CB=33+CB=43+CB=73+(B=103 + CB=143 + 
CB=193 + C8=213 + CB=2833*C CC=23 + CC=43 + CC=73 
+ CC=93 + CC=123 + CC=153 + CC=163 + CC=203 3THEN3 
620 

2860 IFCCA=43+CA=223+CA=3433*CCB=63+CB=1 
13 + CB=1 63 3THEN3680 

2870 IFCC9=43+C9=223+C9=3433*CCC=283+CC= 
303 + CC=333 3THEN3680 

2880 IFC CB=63 + CB=113 + CB=l 63 3*CCC=283 + CC= 
303 + CC=333 3THEN3680 

2890 IFC C9=30.3+ C9=1 33 + C9=21 3 3*C CB= 1 73 + CB 
= 133 + CB=303 3*CCC=13 + CC=323 + CC=223 3THEN37 

40 

2900 REM NON SI E'UERIFICATA NESSUN9 DEL 
LE CONDIZIONI DI UINCIT9 DELL9 PRECEDENT 
E ROUTINE 

2910 COLOR,,4,0:CLS 

2920 FORT = 1T06:P0KE$5D,184sCURSORI3,10:P 
RINT"bb NIENTE bb"sf1USIC"-A0-B0R3":POKE* 
5D,192 sCURSORI3,10 sPRINT"bb NIENTE bb":M 
USIC"-C0-D0R3":NEXTT. 

2930 CURS0R4,18:P0KE$5D,200:PRINT"H9I PE 
RSO ";F*35" PUNTI "sMUSIC"A0B0C0B0C0A0 


# 2940 CURS0R24,18:PRINT"99 " 

2950 CURS0R4,20:P0KE$50,208:PRINT"PECC9T 


0 " JMUSIC+80+B0+C0+D0+P0" 

2960 CURSORI 2,20 SPRINT"9 9" 

2970 FORT=1TO2500sNEXTT 
2980 COLOR,,4,0 

2990 LET PU=PU-CF*33:IFPU<3THEN3800 
3000 GOTO3870 

3010 REM ROUTINE STAMPA UITT0RI9 

3020 FORT =1TO500 sNEXTT:C0L0R,,4SPRINT"®" 

3030 CURSORI 0,5 SPRINT"3 B9R TRIPLI 9 5" 

3040 CURSOR0,12 sPRINTC6,3"CompI imenti "; 

2$;",e' il massimo 9 9 11 SGOSUB4020 

3050 CURS0R8,22SPRINTI 7,3"Hai vinto "iF* 


1005 " punt1999" 

3060 LET PU=PU+CF*1003 
3070 F0RT=1TO2000 sNEXTT:GOTO3870 
3080 FORT=1TO500 :NEXTT:COLOR,,4SPRINT"®" 
3090 CURSORI0,5 SPRINT"3 B9R DOPPI 99" 
3100 CURSOR0,12:PRINTC6,]"CompIImenti "; 
2$;",e' quasi il massimo 99"JGOSUB4020 
3110 CURS0R8,22 JPRINTC7,3"Hai vinto ";F* 
80 ;" punti9 9 9 " 

3120 LET PU=PU+CF*803 
3130 FORT-1TO2000sNEXTT:GOTO3870 
3140 FORT=1TO500:NEXTT:COLOR,,4SPRINT"®" 
3150 CURSORI 0,5 SPRINT"3 BAR SINGOLI 99" 
3160 CURSOR0,12 SPRINTI6,]"CompIimenti 
2$5">un ottimo punteggio 99" :GOSUB4020 
3170 CURS0R8,22 SPRINTI?,3"Hai vinto " ;F* 
45 5" punt19 9 9 " . 

3180 PU=PU+CF#453 

3190 FORY=1 TO20.00:NEXTY:GOTO3870 

3200 FORT=1TO500:NEXTT sCOLOR,,4 SPRINT"®" 

3210 CURSORI 0,5:PRINT"3 FRAGOLE 99" 

3220 CURSOR0,12 SPRINTI6,]"CompIimenti "; 
2$;",un modesto punteggio 9"sGOSUB4030 
3230 CURS0R8,22:PRINTC7,]"Hai vinto' ";F* 
25" punt1999" 

3240 PU=PU+CF*23 

3250 FORT=1TO2000:NEXTT:GOTO3870 

3260 F0RT=1TO500sNEXTT:COLOR,,4 SPRINT"®" 

3270 CURSORI 0,5:PRINT"3 MELE 99" 

3280 CURSOR0,12:PRINTC6,]"Bnavo ";2*;",u 
n discreto punteggio 9"sGOSUB4030 
3290 CURS0R8,22 SPRINTI7, 3 "Ha i vinto ",‘F* 
5 5" punt 1 9 9 9 " 

3300 PU=PU+CF*53 

3310 F0RT = 1TO2000:NEXTT SGOTO3870 

3320 F0RT=1TO500:NEXTT :C0L0R,,4:PRINT"i" 

3330 CURSORI 0,5 SPRINT"3 PÉRE 99" 

3340 CURSOR0,12 :PRINT[6,3 "Bravo ";2$;",u 
n discreto punteggio 9"sGOSUB4030 
3350 CURS0R8,22 sPRINTI7, 3"Hai vinto " ;F* 
5 !" punt i 9 9 9 " 

3360 PU=PU+CF*53 

3370 FORT=1TO2000 :NEXTT :GOTO3870 
3380 FORT=1TO500:NEXTT:COLOR,,4SPRINT"®" 
3390 CURSORI0,5 SPRINT"3 OMINI SORRIDENTI 
9 9" 

3400 CURSOR0,12:PRINTC6,]"CompIimenti "5 
2*5",un buon punteggio 9"sGOSUB4020 
3410 CURS0R8,22 SPRINTI7,]"Hai vinto ";F* 
305" punt1999" 

3420 PU=PU+CF*303 

3430 F0RT=1TO2000 sNEXTTSGÙTO3870 

3440 F0RT=1TO500 SNEXTT:C0L0R,,4SPRINT"®" 

3450 CURSORI 0,5 SPRINT”3 OMINI PIANGENTI 

9 9" 

3460 CURSOR0,12 SPRINT 16,]"Che sfortuna " 
;2$;",un cattivo punteggio 9"sGOSUB4040 
3470 CURS0R8,22:PRINTI7,]"Hai perso " ;F* 
10!" punti999":MUSIC"R9" 

3480 PU=PU-CF#103 :IFPU<3THEN3800 
3490 FORT=1TO2000:NEXTT:GOTO3870 
3500 FORT=*1 TOI 000 :NEXTT :COLOR, , 4 SPRINT"® 

3510 CURSORI 0,5:PRINT"2 BAR TRIPLI 99" 
3520 CURSOR0,12:PRINTC6,]"Compl iment i 
2$;",un buon punteggio 9" } GOSUB4030 
3530 CURS0R8,22 SPRINTI7,3“Hai vinto ";F* 
105" punt1999" 

3540 PU=PU+CF*103 

3550 FORT=1TO2000:NEXTT:GOTO3870 

3560 FORT= 1 TOI000sNEXTTsCOLOR,,4sPRINT"8 

3570 CURSORI 0,5:PRINT"2 FRAGOLE 99" 

3580 CURSOR0, 12sPRINTI6,3"Bravo ";2$;",u 
n modesto punteggio 9"sGOSUB4040 

( 

3590 CURS0R8,22 SPRINTC7,]"Hai vinto " ;F* 

1 ;" punt19 9 9 " 

3600 PU=PU+CF*13 

3610 FORT=1TO2000:N£XTT:GOTO3870 

3620 F0RT=1TOI000sNEXTT:COLOR,,4SPRINT"® 


3630 CURSORI 0,5 SPRINT"2 MELE 99" 

3640 CURSOR0,12:PRINTC6,]"Bravo ";2$;",u 
n modesto punteggio 9"sGOSUB4040 
3650 CURS0R8,22JPRINTI7,]"Hai vinto " ;F* 
2 ;" punt 1 9 9 9 " 

3660 PU=PU+CF#23 

3670 FORT=1TO2000:NEXTT:GOTO3870 

3680 F0RT=1TOI000sNEXTTsCOLOR, ,4 SPRINT"® 

3690 CURSORI 0,5 SPRINT"2 OMINI SORRIDENTI 
9 9" 

3700 CURSOR0,12:PRINTE6,]"Compìimenti "; 
2$ ; ",un buon punteggio 9" 5 GOSU84030 
3710 CURS0R8,22 SPRINTC7,]"Hai vinto ";F* 
105" punt1999" 

3720 PU=PU+CF*103 

3730 F0RT = 1 TO2000 sNEXT .'GOTO3870 

3740 F0RT=1 TOI 000 .‘NEXTT : COLOR, ,4sPRINT"0 

3750 CURSORI 0,5 SPRINT"3 ANY BAR 99" 

3760 CURSOR0,12:PRINTC6,]"Complimenti "; 
2$;",un ottimo punteggio 9"sGOSUB4020 
3770 CURS0R8,22 SPRINT[7,3 "Ha i vinto ";F* 
50;" punt1999" • 

3780 PU=PU+CF*503:F0RT=1TO1500:NEXTT:GOT 
03870 

3790 REM SE PU<3 ALLORA TERMINA LA PARTI 
TA 

3800 PRINT"E":CURS0R5,10:PRINT2$; n SEI S 
CESO SOTTO I 3 PUNTI" 

3810 CURS0R5,12:PRINT"LA PARTITA E'TERMI 
NATA9 9 " 

3820 MUSIC-A0-B0-C0-D0-E0-A0-B0-C0-C3" 
3830 F0RT=1TO5000sNEXT 
3840 PRINT"®" 

3850 GOTO90 

3860 REM ROUTINE CONTROLLO RECORD 
3870 IF PU>=50THENPRINT"B":PRINT"Hai sup 
erato i 50 punti 999";" La tua media pun 
ti /partita e s " JPU^PG JGOTO3890 
3880 GOTO1220 

3890 IFMEDIA=0 THENCURSOR0,5:PRINT2$;" h 
ai stabilito il record media" sPRINT"punt 
impartita poiche'sei il primo ad"SPRINT" 
aver superato i 50 punti999"sMAN$=2$sMED 
IA=PU/PG:GOTO3940 

3900 IFCMEDI AO03XCPU/PG>MEDI A3THENPRINT 
2* ;" hai stabilito il nuovo record "sPRI 
NT"media punt i /part i ta 9 9 9 9 " :MAN$=2* .‘MED 
IA=PU/PG:GOTO3940 

3910 IFCMEDIAO03XCPU/PG=MEDIA3THENPRINT 
2$ 5" hai uguagliato il record di "SPRINT 
MAN*;" ma non basta devi superarlo 99"sF 
0RT=1TO3000sNEXT 5GOTO3940 
3920 IFCMEDIAO0 3X(PU^PG<MEDIA3THENPRINT 
2*5" hai superato i 50 punti ma ia"sPRIN 
T"tua media punti/partita non supera il" 
sPRINTVecord di " ;MAN$ ; " 9"sGOTO3930 
3930 PRINTSPRINT 

3940 PRINT"Uuoi migliorare il tuo punteg 
gioCS/ND?" 

3950 PRINTSPRINT SPRINT 

3960 F0RT= 1 TO400 SPRINTC3,3] "C8." ; sNEXTT 

3970 GET XC*sIFXC*=" "THEN3970 

3980 IF XC*="S"THENPRINT:PRINT"Sei corag 

gioso9 9 9 "sF0RT=1TO2000sNEXTsGQTOI220. 

3990 IF XC*="N"THENPRINT"@"sPRINT"Fifone 

9 9 9 "SF0RT=1TOI300SNEXTSPRINT SPRINT SPRINT 

"Addio," ;2*sFORT = 1TO1500 >NEXT SPRINT sPRIN 

TspRINT"UedI amo adesso un altro giocator 

e 9 9"sF0RT=1TO3000 sNEXT 5GOTO990 

4000 GOTO3970 

4010 REM EFFETTI SONORI 

4020 KU$="A0B0C0D0E0F0#E0#À0#B0C0A0A0A0C 
0B0#A0#E0F0E0D0C0B0A0"JTEMP05sMUSICKU* sR 
ETURN 

4030 KU$="#A0#C0#E0t*F0#E0#A0#B0#D0#C0C0A 
0B0C0A0A0C0B0F0E0#E0R2A1-A2+A3"STEMP05 sM 
USICKU* sRETURN 

4040 KU*="-#A0-#C0-#E0-#F0-#E0-#A0-#B0-t» 
D0-#C0-C0-A0-B0-C0-A0-A0-C0-B0-F0-E0-#E0 
R2+A1-A2A3"sTEMPOS sHUSICKU* sRETURN 
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PIANOFORTE 

di Enrico Grandis 


Un classico programma musicale che trasforma N.B.: Le lettere sottolineate nel listato vanno 
la tast : era del vostro computer in un magico digitate con il modo grafico inserito (*). 
pianoforte elettronico. 



1 REM ************** 

2 REM * PIANOFORTE * 

3 REM ************** 

4 REM 

5 REM by ENRICO GRANDIS 

6 REM via Colli Euganei n.15 

2 REM Battaglia Terme CPAD0UA3 
8 REM 35041 


UU UDR U UUU " : BEEP 
110 PRINT :PRINT :C0L0R13 :PRINT" 
SOFTWARE"=PRINT: PRINT" 


NT 

INT 

EEP 


BT" :PRINT COLORI 2:PRINT:PRINT :PRI 
Enrico Grand i s":C0L0R4=PR 
; PRINT " AND Fix e Sim" :B 


10 SCREEN 

2, 

2 : CLS : C0L0R8 





120 

COLORII 



20 PRINT 








130 

C.IRCLEC202, 1363,28, 

1 1 


30 PRINT 








140 

CURSORI 80,100 :PRI NT 

II 

M 

40 PRINT 








150 

CURSOR180,108 : PRINT 

li 

» 

50 PRINT 








160 

CURS0R122,116:PRINT 

il 

EUUR 

60 PRINT 

II 

UUU U UUU 

UR U 

UUU 

UUU 

UUU 

120 

CURS0R122,124:PRINT 

II 

" 

UUU UUU 

UUU 

" :BEEP 






180 

CURS0R122, 132 : PRINT 

il 

UEFS 

20 PRINT 

II 

U U U U U 

UDRU 

U 

u 

u 

u u 

190 

CURS0R122, 140 :PRINT 

ti 

" 

UUU 

u 

" :BEEP 






200 

CURS0R122,148:PRINT 

li 

DUUF 

80 PRINT 

II 

UUU U UUU 

U DU 

U 

U 

UU 

u u 

210 

CURSOR180, 156 : PRINT 

II 

II 

UUU U 

UU 

" :BEEP 






220 

CURSOR180, 162 SPRINT 

II 

" =BEEP 

90 PRINT 

II 

U U U 

J U U 

U U 

u 

u 





U UR U 

u 

" : BEEP 






230 

CURSOR30,180 : COLOR 1 : 

PRINT "premi i 

100 PRINT 

II 

U U 'U 

U U 

u 

UUU u 


l tasto C per continuare 

Il • 

BEEP 






















































240 IF INKEY$="C" THEN BEEP: GOTO 260 
250 GOTO 240 

260 SCREEN 1,1 :CLS :C0L0R15,4 

270 PRINT " HHHHHHHHHHHHHHHHHHHHHHHHHHH 

HHHHHHHHHHH " 

280 PRINT 

290 PRINT " PIANOFORTE " :PRI 

NT 

300 PRINT "In questo programma,[a tast 

PRINT "SEGA SC 3000 I 


I e r a del": 
unge da pianoforte 


" :PRINT "dal suo 


, 105 3,1 
540 LINE 
,1053,1 
550 LINE 
,1053,1 
560 LINE 
,1053,1 
570 LINE 
,1053,1 

580 CURSOR 80,30 : COLOR13 :PRINT 
SUONA 2 2 2 2 " 


C165,110 3 — C170,1103:PAINTC168 
C175,1103-C180,1103:PAINTC178 
C185,1103-C190,1103:PAINTC188 
CI 95,1103-C200,1103:PAINTC198 

'ADESSO 


no elettronico." 

590 

IF 

INKEY$="1" 

THEN 

SOUND 

1,110,A 

310 PRINT "Partendo dal tasto C13 fino 

600 

IF 

INKEY$="2" 

THEN 

SOUND 

1,115,A 

al tasto C: 3, i suoni uanno 

610 

IF 

INKEY$="3" 

THEN 

SOUND 

1,125,A 

dal tono piu’ basso a quello pi 

620 

IF 

INKEY$="4" 

THEN 

SOUND 

1,135,A 

u’ alto." 

630 

IF 

INKEY$="5" 

THEN 

SOUND 

1,150,A 

320 PRINT "Con il tasto C]3 viene emes 

640 

IF 

INKEY$="6" 

THEN 

SOUND 

1,160,A 

so un beep mentre con il tasto C23,si 

650 

IF 

INKEY$="7" 

THEN 

SOUND 

1,175,A 

termina." 

660 

IF 

INKEY$="8" 

THEN 

SOUND 

1,190,A 

330 PRINT : INPUT "scegli il volume Cl- 

670 

IF 

INKEY$="9" 

THEN 

SOUND 

1,210,A 

153 " ;A 

680 

IF C 

INKEY$="0" 

THEN 

SOUND 

1,230,A 

340 PRINT:PRINT " premi il tasto CC3 

690 

IF 

INKEY$="~" 

THEN 

SOUND 

1,260,A 

per Iniziare" 

700 

IF 

INKEY$="^" 

THEN 

SOUND 

1,280,A 

350 IF INKEY$="C" THEN BEEP:G0T0 370 

710 

IF 

INKEY$="\" 

THEN 

SOUND 

1,320,A 

360 GOTO 350 

720 

IF 

INKEY$="Q" 

THEN 

SOUND 

1,340,A 

370 SCREEN 2,2:CLS:COLORl 

730 

IF 

INKEY$="U1" 

THEN 

SOUND 

1,380,A 

380 LINE C50,603-C200,603:LINE C50,603 

740 

IF 

INKEY$="E" 

THEN 

SOUND 

1,420,A 

-C50,1303 :LINE C50,1303-C200,1303:LINE 

750 

IF 

INKEY$="R" 

THEN 

SOUND 

1,450,A 

C200,4303-C200,603 

760 

IF 

INKEY$="T" 

THEN 

SOUND 

1,480,A 

390 LINE C50,753-C200,753 

770 

IF 

INKEY$="Y" 

THEN 

SOUND 

1,510,A 

400 FOR N=60 TO 190 STEP 10 

780 

IF 

INKEY$="U" 

THEN 

SOUND 

1,540,A 

410 LINE CN,753-CN,1303 :NEXT N 

790 

IF 

INKEY$="I" 

THEN 

SOUND 

1,570,A 

420 FOR X=55 TO 195 STEP 10 

800 

IF 

INKEY$="0" 

THEN 

SOUND 

1,600,A 

430 LINE CX,753-CX,1103 :NEXT X 

810 

IF 

INKEY$="P" 

THEN 

SOUND 

1,630,A 

440 LINE C55,1103-C60,1103:PAINTC58,10 

820 

IF 

I NKEY$="@" 

THEN 

SOUND 

1,660,A 

53,1:LINE C65,1103-C70,1103:PAINTC68,1 

830 

IF 

INKEY$="[" 

THEN 

SOUND 

1,690,A 

053,1 

840 

r-F 

INKEY$ = " A"‘ 

- THEN 

SOUND 

1,720,A 

450 LINE C75,1103-C80,1103:PAINTC78,10 

850 

IF 

INKEY$="S" 

THEN 

SOUND 

1,750,A 

53,1 

860 

IF 

INKEY$="D" 

THEN 

SOUND 

1,780,A 

460 LINE C85,1103-C90,1103:PAINTC88,10 

870 

IF 

INKEY$-"F" 

THEN 

SOUND 

1,810,A 

53,1 

880 

IF 

INKEY$="G" 

THEN 

SOUND 

1,850,A 

470 LINE C95,1 103 — C100,1103 : PAI NT C 98,1 

890 

IF 

INKEY$="H" 

THEN 

SOUND 

1,890,A 

053,1 

900 

IF 

INKEY$="J " 

THEN 

SOUND 

1,930,A 

480 LINE C105,1103-C110,1103:PAINTC108 

910 

IF 

INKEY$="K" 

THEN 

SOUND 

1,970,A 

, 1053,1 

920 

IF 

INKEY$="L" 

THEN 

SOUND 

1,1010,A 

490 LINE CI 15,1103-C120,1103 :PAINTC118 

930 

IF 

INKEY$=";" 

THEN 

SOUND 

1,1050,A 

,1053,1 

940 

IF 

INKEY$=":" 

THEN 

SOUND 

1,1090,A 

500 LINE C125,1103-C130,1103:PAINTC128 

950 

IF 

INKEY$="3" 

THEN 

BEEP 


, 105 3,1 

960 

IF 

INKEY$="" 

THEN SOUND0 


510 LINE C135,1103-C140,1103:PAINTC138 

970 

IF 

INKEY$="2" 

THEN 

GOTO 990 

,1053,1 

980 

GOTO 590 




520 LINE C145,1103-C150,1103:PAINTC148 

990 

CLS 

: : GOTO 1010 




,1053,1 

1000 

END 





530 LINE C155,1103-C160,1103:PAINTC158 


1010 REM 


90 























RIASSUNTO: A Paolo Marchi 
del viaggio fantastico nel re¬ 
gno dell'informatica, dove 
tutti i segreti dei computers 
gli sono stati svelati, resta un 
souvenir: un robot a forma 
d'uovo, in tutto uguale agli a- 
bitanti di quel mondo meravi¬ 
glioso. 


'I 








L FimirSE SECETE 


L- 


...AVREMO DUE RISULTATI, 
CHE CHIAMEREMO:X, EX*. 
COME SI TROVANO ? 

-b_VbU*o c|DA ~ XlE 

CCX 

_bW b^-Afxc C I DA X 2 . 
2a 

FACCIAMO UN ESEMPIO: 

X%2*+1 =>0 






yy 


f 


/ 'VT r 


% 

i 

!p 

4 

*A 

!|- 

| : 1 

r'_ 


A. M. Ka/CXu /M&uo Cfifóu ‘&U 



































































































































































































INFATTI,POCO DOPO., 


...SFRECCIAVANO 
VELOCISSIMI 
DALLA RAM ALLA 
ROM... 


MA QUANTO 
SAREBBERO 
&RANPI QUESTI 
ROBOT ? 




BMfA! E' TUTTA LA MATTINA 
CHE CHIACCHIERI. 1 ... 



























































































































































\ A 


7 


'f/noi lf ; ^ 

riTR: 

>a->v+x / '2-S*5s0 

cioè’ 

» y * «i 

v c'+l-x^q 





' COEFFICIETVTI 
f^Rwino questi vpasw • 

n* S 
B zLf 

c «0 

| OUE RISULTATI SO^ ; 

2 R M 

a ;j jfV¥ A g -l+BC = ;J±£p i0 



FAMMI VEDERE 
DOVE SEI 
ARRIVATO... 



MA ...HAI FINITO!?/ 



...ED E'ESATTO!... 
INCREDIBILE... 
COME HAI FATTO? 



ERAVAMO PREOCCUPATI PER TE! HAI GIÀ' FINITO?/? 

n=L 


UN'EQUAZIONE INDUESECON- 
DITSEI DIVENTATO UN GENIO/ 

f ii 1 


CI STAVI RACCONTANDO CHE IN QUEL SOGNO 
HAI CAPITO TUTTO DEL COMPUTER... 

V. 



QUANDO CI PORTI A 
CASA TUA E CI FAI 
VEDERE? 

:~v 



OGGI POMERIGGIO-MA NON HO 
ANCORA FINITO DI RACCONTARVI... 

ROBOTS A FORMA DOCK) SCIENZIATI.! 

1 \ r i 


















































































































































! QUEL POMERIGGIO A CASA DI PAOLO 

IO COL COMPUTER 0 50 fARE SOLO I 
VIDEOGIOCHI. 


MIO PADRE MI HA REGALATO 
UN LIBRO SUl8A£IC,MAN0N 
CI HO CAPITO NIENTE. 



PER POTERÒ IN¬ 
SERIRE QUALCHE 
ALTRO ORDINE.SE 
MI OCCORRE. AD 
ESEMPIO QUI,GUAR¬ 
DA, HO AGGIUNTO 
Il 55 E MI RESTA 
ANCORA SPAZIO PER 
IL 56,57,58 E IL 59. 


WW TTTKT, 

30 FDP, C = I n 
m FEW D = m 
58 J?(CD)=C*D 
SS f! EXT E 
S0 flEXTD 
SS CL5 PRIfìT ' lì 


AH, HO CAPITO! 


GIÀ, MA COME SI FA$ 
AD INSERIRLE? 


TU SCRIVI LA NUOVA 
ISTRUZIONE CON IL 
NUMERO DI RIGA CHE 
TI SERVE,PER ESEMPIO 
IL55,E,PRIMACHEIL 
PROGRAMMA GIRI, IL 55 
VERRÀ'AUTOMATICAMEN¬ 
TE MESSO TRA IL 50 ED 
IL 60. CIOÈ IL COMPUTER 
METTE IN ORDINE CRE¬ 
SCENTE ANCHE LE ISTRU¬ 
ZIONI SCRITTE FUORI POSTO. 












































































































DAI.DAI. FAMMI PROVARE, 
VOGLIO FARE UN PROGRAM¬ 
MA SEMPLICE PER COMINCIA¬ 
RE! POSSO? 




INNANZITUTTO ILNU 
MERO DELLA RIGAMO. 
POI UN'ANNOTAZIONE 
REM (ABBREVIAZIONE DI 
REMARK).„VEDIAMO... 
REPETITA IUVANT. 

y 



MA COSA MI FAI' 
SCRIVERE ?! 
PROPRIO A ME 
CHE ODIO IL 
LATINO ?!? 

L_ _ _^ 

- V 

f 



ORA VEDRAI! DIGITA: 
20 F0RCMTO5. 
VUOL DIRE'CONTA DAI 
A5 "OGNI VOLTA CHE 
PASSIAMO DI QUA CT 
AUMENTA DII (FOR-- 
PER;TO=FINOA). 



P0ILARIGA30:PRINT" ” 

E‘ L'ORDINE DI SCRIVERE QUEL¬ 
LO CHE E'TRA LE VIRGOLETTE. 
-- - 

l n -'ns 



■ N. Hoxz-i -f $(. Conu. Sq 



( -> 

ORA DIGITA: 

50 END. CIOÈ' 
"FINE” IL PRO¬ 
GRAMMA E'FI¬ 
NITO .TUTTE 
QUESTE INFOR¬ 
MAZIONI SONO 

asm. cioe v 

QUELLO CHE 
METTI NELCOM- 


40 ITEXT CT 


"NEXT” 5IGNIFICH "IL PROSSIMO" 
CT VA AL PROSSIMO VALORE, 

[ SE STAVA A1.VA A2 E COSI'VIA. 

rz 




min 

CHE BRRBR IL LRTinO 
CHE BRRBR IL UTTIflD 


CHE BRRBR IL LHTIHO 

CHE BRRBR IL LRTIfìO 
fhp RnRRBiL LErrinn ! 















































































































TI IMMAGINI QUANDO 
RIUSCIREMO AFARE PRO¬ 
GRAMMI COMPLICATISSIMI? 

t~2S 


\r 


( MA E'PROPRIO DIVERTENTE ! 
[ FAI PROVARE ANCHE A ME? 



ADESSO SI'CHE COMINCIO 
A CAPIRCI QUALCOSA. 

y 




A 







M 



VUOI FARE GIRARE UNO 
CHE HO FATTO IO ? 


VA BENE, COME FACCIO ? 

D 




QUANDO FAI UN PRO¬ 
GRAMMA E LO VUOI 
CONSERVARE, LO DEVI 
TRASPORTARE SU NA¬ 
STRO. ALTRIMENTI QUAN¬ 
DO SPEGNI IL COMPUTER 
SI CANCELLA.PER RITRO¬ 
VARLO INSERISCI IL NA¬ 
STRO, POI DIGITATOLO", 
IL NOME DEL PROGRAM 
MA E POI "RUN". 


OLD PIRCERE 
RUn 

sei un RRcnzzo 

0 unn RROHZZH 

? 




CHE DOMANDE! MI SEMBRA 
MIO NONNO... 



SU. RISPONDI,NO!?.'/ 

T~ 



10 FiEm PIRCERE 
20 PRIflT “ SEI Ufi RAGAZZO" 

2S PRIAT' DUnfl RADAZZA" 

30 inPUT Rì 

H0 IF R5=RADRZZQ THEn T 0 
50 PRinT"PIACERE," 

SS PRinT” RODDLFO UHLEriTinO 
60 DD TO 90 

T 0 PRinT"PIRCERE,IO 50 nU Ufi" 

1S PRinT "DRAnDE CEniO." 

G0 PRinrTU inUECESEI PROPRIO", 
QS PRinT" TOnTO!” 

90 Eno 




£ 


SE ROSSE UNA RAGAZZA,SCRI¬ 
VEREBBE ' P1ACERE.RODOL- 
FO VALENTINO’.’- 


EHI! NON VALE! A ME TONTO E ALLE RAGAZZE INVECE] 
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